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I.  INTRODUCTION 

This  thesis  documents  the  design  and  implementation  of  an  on-line  Faculty 
Research  Catalog  for  the  Information  Technology  Management  (ITM)  Group  of  the 
Systems  Management  (SM)  Department  at  the  Naval  Postgraduate  School  (NPS).  The 
on-line  research  catalog  contains  significant  research  information  by  ITM  professors  and  is 
accessed  via  the  World  Wide  Web  (WWW). 

A.  BACKGROUND 

A  recent  graduate  of  NPS,  Barbara  Franklin,  did  a  thesis  in  which  she  collected 
and  consolidated  the  ITM  professors'  diverse  backgrounds  and  various  research  interests 
in  an  attractive  brochure.  The  goal  of  the  brochure  is  to  provide  research  information  to 
the  many  geographically  dispersed  DOD/DON  agencies  and  solicit  research  sponsors  for 
further  research  opportunities.  This  brochure  is  in  a  hardcopy  and  electronic  form.  The 
electronic  form  currently  resides  as  a  series  of  static  web  pages  on  the  WWW. 

B.  PROBLEM  DEFINITION 

The  current  research  catalog  does  not  allow  the  ITM  professors  to  have  ownership 
and  easily  maintain  their  respective  pages  in  the  brochure.  Consequently,  these  static 
pages  have  not  been  updated  since  their  inception  last  September  and  are  quickly 
becoming  obsolete.  In  addition,  since  the  catalog  also  exists  as  a  series  of  web  pages, 
there  is  no  central  repository  to  contain  the  data.  As  a  result,  the  catalog  contains 
redundant  information.  Most  of  the  redundancy  occurs  between  the  faculty  research 
pages,  research  areas  and  recent  publications'  sections  of  the  catalog. 


For  instance,  it  is  common  for  ITM  professors  to  co-author  a  publication.  This  same 
publication  may  appear  on  their  respective  research  pages  as  well  as  the  other  two  earlier 
mentioned  sections. 
C.  OBJECTIVE 

The  research  catalog  consists  of  common  fields  of  information  that  needs  to  be 
maintained  (add,  modify,  and  delete);  this  makes  the  catalog  the  ideal  candidate  to  store  its 
information  in  a  relational  database.  The  database  must  reside  on  a  server  that  will 
provide  an  acceptable  response  time. 

All  of  the  ITM  professors  have  access  to  the  internet.  The  internet  uses  a  protocol 
called  TCP/IP  that  allows  access  to  the  WWW  regardless  of  the  users  operating  platform. 
For  this  reason  the  on-line  research  catalog  is  a  WWW  client/server  application  that  allows 
ITM  professors  to  easily  and  immediately  maintain  their  own  research  information  and 
have  it  available  for  world  wide  access.  Figure  1  depicts  the  above  process. 
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Figure  1.  WWW  Client/Sever  Model  for  the  On-line  Research  Catalog 


D.  METHODOLOGY 

A  review  of  the  existing  ITM  group  faculty  research  catalog  was  conducted  to 
familiarize  the  author  with  the  format.  Next,  selected  ITM  faculty  members  were 
personally  interviewed  to  obtain  additional  information  and  user  requirements.  The  author 
chose  Delphi,  an  object-oriented  language,  to  be  the  interface  between  the  user  and  the 
database.  A  context  diagram  and  data  flow  diagrams  were  developed  to  depict  the 
process  of  maintaining  the  ITM  research  catalog.  Finally,  a  semantic  object  model  and 
relational  diagram  were  created  to  design  the  database. 

The  author's  recent  educational  background  in  systems  analysis  and  design 
methods,  relational  databases,  and  HTML  proved  to  be  extremely  helpful  in  the 
development  of  the  on-line  research  catalog  application.  The  author  assumed  the  roles  of 
ITM  faculty  member,  other  users  and  system  administrator  in  the  development  of  the 
application. 


n.  THE  DESIGN  AND  IMPLEMENTATION  MODELS 


This  chapter  describes  the  semantic  object  model  as  a  database  design  model  and 
its  conversion  to  the  relational  model  for  implementation. 
A.  THE  SEMANTIC  OB  JECT  MODEL 

The  research  catalog  database  was  designed  using  SALSA,  a  data  modeling  tool. 

The  semantic  object  model  of  the  data  maintained  by  the  research  catalog  is  shown  in 

Figure  2.  Below  is  a  brief  description  of  each  semantic  object.  A  semantic  object  is  a 

representation  of  some  identifiable  things  in  the  users'  work  environment  about  which  he 

wants  to  maintain[Ref  1]. 

FacultyAccount:  Gives  authorization  for  faculty  members  to  access  the 
database. 

Faculty:  Contain  detailed  information  about  each  faculty  member. 

ResearchPage:  Documents  the  research  interests  of  a  faculty  member. 

Publication:  The  publications  that  a  faculty  member  written. 

Journal:  A  subset  of  the  Publications  object. 

Book:  A  subset  of  the  Publications  object. 

OtherPub:  A  subset  of  the  Publications  object. 

Faculty   ResearchArea:  Research  categories  that  broadly  describe  research 
common  to  several  professors. 

ResearchSubarea:  Narrower  descriptions  of  some  of  the  broader  research 
areas. 

Research_Center/Lab:  Provides  a  description  of  each  center  or  laboratory, 
current  research  topics,  and  a  point  of  contact. 

Sponsor:  Identify  recent  sponsors  of  the  ITM  professors. 


•     Sysad_Account:  Contains  account  information  on  the  person  who  monitors 
and  maintains  the  entire  contents  of  the  database. 
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Figure  2.  Semantic  Object  Model 


B.  THE  RELATIONAL  MODEL 

The  semantic  object  model  cannot  be  directly  implemented  into  a  database. 
SALSA  provides  a  method  to  generate  a  database  schema  from  a  semantic  object  model. 
A  database  schema  demies  a  database's  structure,  its  tables,  relationships,  domains,  and 
business  rules  [Ref.  1]. 

The  relational  model  is  a  particular  way  of  structuring  and  processing  a  database. 
It  shows  in  an  understandable  way  how  the  database  data  is  stored  as  tables  and  their 
relationship  to  one  another.  Figure  3  shows  the  data  that  is  stored  and  the  relationship 
among  the  rows  that  represents  tables  of  the  database. 
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Figure  3.  Relational  Diagram  of  the  Database 


The  complexity  of  the  database  is  clearly  represented  in  Figure  3.  For  instance,  a 
publication  can  be  a  journal,  book,  or  other  publication  type  and  can  have  one  or  more 
authors  that  may  or  may  not  all  be  ITM  professors  at  NPS.  Therefore,  the  best  approach 
to  uniquely  identify  a  publication  is  by  its  title.  Another  reason  for  the  complexity  of  the 
database  is  the  same  publication  can  appear  on  one  or  more  faculty's  research  page  as 
well  as  the  research  areas/subareas.  This  is  because  a  research  area  can  have  subareas  and 
the  same  publication  can  exist  in  a  research  area  as  well  as  a  subarea  of  a  different  research 
area. 


m.  APPLICATION  PROCESS 

This  chapter  discusses  the  contents  and  process  of  the  ITM  on-line  research 
catalog  application.  It  concludes  with  a  description  of  the  various  CGI  scripts  that 
comprises  the  catalog. 
A.  APPLICATION  CONTENTS 

The  database  content  of  the  on-line  research  catalog  consists  of  5  sections: 
faculty  research  pages,  faculty  research  areas,  research  centers  and  laboratories,  recent 
research  sponsors,  and  recent  publications.    A  discussion  of  each  section  is  presented 
below. 

The  faculty  research  page  provides  professional  information  about  each  ITM 
professor.  It  identifies  and  describes  their  research  specialty,  explains  the  relevance  of 
their  research  to  DOD/DON,  and  list  their  pertinent  research  publications. 

The  faculty  research  areas  provide  brief  descriptions  of  the  ITM  group's  research 
efforts.  Some  research  areas  are  too  broad  to  adequately  describe  some  of  the  professor's 
research  efforts  and  are  broken  into  subareas.  The  research  areas  and  subareas 
(unbulleted  items)  are  arranged  as  follows: 

•  Database  Management  Systems 

•  Decision  Support  and  Expert  Systems 

Decision  Making  in  Dynamic  Environments 
Decision  Support  Systems 
Instructional  Multimedia  Systems 

•  Model  Management 


•  Networks  and  Communications 

Distributed  Systems  and  Computer  Networks 
Telecommunication  Systems 

•  Software  Engineering  and  Applications  Development 

Application  Development 
Software  Engineering  and  Project  Management 
Software  Metrics 
Software  Reliability 
The  research  centers  and  laboratories'  section  provide  a  description  of  each  ITM 
center  or  lab.  It  explains  why  each  center  or  lab  was  formed,  and  list  a  point  of  contact. 
The  research  sponsors  section  gives  recognition  to  sponsors  of  recent  research 
projects.  Sponsors  are  listed  in  alphabetical  order. 

The  recent  publications'  section  displays  a  listing  of  all  recent  publications  by  the 
ITM  group.  This  section  consists  of  the  publications  from  all  the  faculty  research  pages. 
B.  DATA  FLOW  DIAGRAMS 

This  section  uses  data  flow  diagrams  (DFDs)  to  depict  the  flow  of  data  through 
the  system  and  the  processes  that  are  performed  by  the  system.  As  shown  in  Figures  4 
and  5,  the  on-line  research  catalog  is  designed  for  three  types  of  users:  ITM  professors, 
system  administrator,  and  other  WWW  clients.  The  ITM  professors  and  system 
administrator  both  have  query  and  update  privileges.  The  other  WWW  clients  have  only 
query  privilege. 
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Figure  4.  Context  Diagram  For  ITM  Research  Catalog 
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The  two  types  of  users  that  will  maintain  the  research  catalog  are  the  system 
administrator  and  ITM  professors.  Figure  6  shows  that  the  ITM  professors  can  only 
maintain  certain  parts  of  the  catalog,  whereas,  the  system  administrator  can  maintain  the 
entire  catalog.  A  major  user  requirement  of  the  catalog  is  to  allow  a  professor  to 
maintain  information  that  specifically  relates  to  his  research  page.  In  order  to  do  this, 
state  information  about  each  professor  passes  between  CGI  scripts  using  a  hidden  field.  A 
hidden  field  is  an  HTML  form  option  that  can  pass  data  to  CGI  scripts  without  requiring 
the  user  to  actually  enter  the  data.  The  other  areas  of  Figure  6,  except  for  maintain 
systems  account,  are  considered  common  areas,  e.g.,  relate  to  more  than  one  professor. 
For  this  reason,  the  system  administrator  is  the  only  person  allowed  to  update  those  areas 
for  the  purpose  of  keeping  system  integrity. 
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Figure  6.  Middle  Level  DFD  For  ITM  Research  Catalog 
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Figure  7  shows  the  add,  modify,  and  delete  research  page  processes.  What  is  not 
shown  from  the  figure  is  a  professor  must  include  his  faculty  information  when  he  adds  a 
research  page  and  if  he  deletes  a  research  page,  he  also  deletes  his  faculty  information. 
This  is  done  to  prevent  a  research  page  from  existing  without  its  respective  faculty 
information.  Although  faculty  information  is  part  of  a  research  page,  modification  of  a 
research  page  does  not  include  modification  of  faculty  information,  that  is  a  separate 
process  as  shown  in  Figure  8. 
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Figure  8.  Primitive  Level  DFD  For  Maintaing  Faculty  Information 
Figure  9  shows  the  publication  process.  A  professor  can  add  or  delete  a 
publication  only  from  his  research  page  and  desired  research  areas.  He  can  not  completely 
delete  a  publication  entirely  from  the  research  catalog.  The  logic  for  this  is  best  explained 
using  the  following  scenario.  Professor  1  may  have  co-authored  a  publication  with 
professor  2  who  has  the  publication  on  his  research  page.  If  professor  1  is  allowed  to 
delete  the  publication  entirely,  than  it  will  affect  professor  2's  research  page.  Only  the 
system  administrator  can  delete  a  publication  entirely  from  the  catalog  assuming  all 
authors  involved  agree.  There  is  no  publication  modification  process  because  the  title  of 
the  publication  is  its  key  and  cannot  be  modified. 
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Figure  9.  Primitive  Level  DFD  For  Maintaining  Publications 

One  of  the  objectives  of  the  on-line  research  catalog  is  to  attract  sponsors  to 
financially  assist  the  ITM  professors  in  their  research  efforts.  Each  professor  can  add  and 
delete  his  respective  sponsors,  Figure  10. 
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A  professor  must  have  an  account  in  order  to  maintain  his  own  research  page.  An 
account  contains  a  professor's  unique  faculty  code  and  password  that  he  enters  to  log  into 
the  system.  The  system  administrator  is  the  only  person  that  can  add  or  delete  an  account 
for  a  professor,  Figure  11.  Once  a  professor  has  an  account,  he  can  modify  it,  Figure  12. 
Modifying  a  faculty  account  only  entails  changing  the  password;  the  faculty  code  cannot 
be  changed.  If  a  professor's  account  is  deleted,  he  can  no  longer  log  into  the  catalog  to 
maintain  his  research  information.  Therefore,  the  system  administrator  should  only  delete 
a  faculty  account  on  the  departure  of  the  respective  professor  from  the  ITM  group. 
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The  remaining  Figures,  13-15,  are  only  processes  that  are  only  maintained  by  the 
system  administrator  and  are  self-explanatory. 


System 
Administrator 

Obsolete 
Faculty 
Research 
[Area 

New  Faculty 
Research  Area 

1 

V 

Modify  1 
Research 

7  acuity 
i  Area 

1 

I 

V 

r  PE  2.6.1      1 

r  PE  2.6.2      " 

r  PE  2.6.3      ^ 

Process 

Add 

Research 

Area 

Process 

Modify 

Research 

Area 

Process 
Delete 
Research 
Area 

Faculty  R 
Area  Chai 

ssearch 
lges 

f 

Delete  F 

R  p^earch 

acuity 

Add  Faculty  Research  Area 

DS6 

Research 
Areas 

Figure  13.  Primitive  Level  DFD  For  Maintaining  System  Account 


17 


New  Research 
Center/Lab 


System 
Administrator 


Modify  Research 
Center/Lab 


Obsolete 
Research 
Center/Lab 


PE  2.7.1 


Process  Add 

Research 

Centers/Labs 


PE  2.7.2 


Process 
Modify 
Research 
Centers/Labs 


PE  2.7.3 


Process 
Delete 
Research 
Centers/Labs 


Research  Center/ 
Lab  Changes 


Add  Research 
Center/Lab 


►     DS7 


Research 
Centers/Labs 


Delete  Research 
Center/Lab 


Figure  14.  Primitive  Level  DFD  For  Maintaining  Research  Centers/Labs 


System 

Administrator 

New 
Accounl 

Modify 
Account 

Old 
Account 

\ 

f 

\ 

i                                                    \ 

r 

r  PE  2.8.1 

~*\ 

r  PE  2.8.2     ^ 

r  PE  2.8.3     ^ 

Process 

Process 

Process 

Add 

Modify 

Delete 

System 
Account 

System 
Account 

System 
Account 

^ 

J 

V                                  J 

^                    J 

< 

Change 

i 

Vccount 

1 

f                       _.       . 

Add  Account 

DS8 

Account 

ueieie  Account 

^ 

Figure  15.  Primitive  Level  DFD  For  Maintaing  System  Account 


18 


C.  CGI  SCRIPTS  DESCRIPTION 

CGI  scripts  are  short  programs  that  execute  in  real  time  and  reside  in  a  special 
directory  of  a  web  server.  They  lend  themselves  particularly  well  to  the  task  of  accessing 
a  database.  CGI  scripts  are  written  in  different  programming  languages.  The  on-line 
research  catalog  scripts  are  written  in  Delphi  and  can  be  categorized  into  the  following 
groups:  add,  modify,  browse,  and  delete. 

1.  Add  Scripts 

These  scripts  display  an  HTML  input  form  to  collect  information  on  what  the  user 
wants  to  add,  i.e.,  a  research  page,  publication,  etc.,  to  the  database.  Once  the 
information  is  collected  another  form  accepts  the  data  and  adds  it  to  the  appropriate  tables 
in  the  database. 

2.  Modify  Scripts 

These  scripts  use  an  HTML  form  to  display  current  information  about  the  item  the 
users  want  to  update.  The  user  can  make  any  desired  changes  on  the  form.  Once 
submitted,  it  is  received  by  another  script  that  takes  this  new  data  and  modifies  the 
appropriate  tables. 

3.  Browse  Scripts 

The  browse  scripts  do  not  accept  any  data,  just  displays  it.  The  browse  research 
centers/labs  are  the  only  browse  scripts  that  have  links  to  other  HTML  pages. 
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4.  Delete  Scripts 

There  are  two  types  of  delete  scripts:  one  that  permanently  removes  the 
information  from  the  database  and  the  other  just  removes  it  from  being  displayed.  The 
latter  applies  only  in  the  case  of  publications.  For  example,  a  publication  can  be  deleted 
from  a  research  page  and/or  research  area.  The  publication  still  exists  in  the  database,  but 
is  removed  from  the  selected  item(s).  If  a  publication  needs  to  be  deleted  entirely  from  the 
database,  only  the  system  administrator  has  the  privilege  to  perform  that  task. 
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IV.  THE  USER  INTERFACE 

This  chapter  describes  the  main  user  interfaces  for  the  three  different  types  of  on- 
line research  catalog  users:  WWW  clients,  ITM  faculty,  and  system  administrator.  All 
users  with  a  frames  capable  browser  will  first  access  the  welcome  page,  Figure  16.  Then, 
depending  on  the  type  of  user  they  are,  will  mainly  interact  with  one  of  three  menus. 


Ill H in I I I l.l.l.l. I»l I II *■■■■ 

H  Netscape  -  flTM  Oo~»ne  ficsearch  Catalog}  H* 


File     Edit     View     Go     Bookmarks     Options     Directory     Window     Help 


Figure  16.  Welcome  Menu 
A.  WWW  CLIENTS 

The  WWW  clients  can  view  the  contents  of  the  research  catalog  by  selecting  the 
browse  catalog  option  from  Figure  16.  The  Browse  Menu,  Figure  17,  is  then  displayed  to 
allow  the  user  to  select  the  items  he  wants  to  view. 
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Figure  17.  Browse  Menu 
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If  a  user  wants  to  view  a  faculty  research  page,  he  can  select  from  the  drop  down 
list  of  ITM  professors.  The  drop  down  list  is  in  alphabetical  order  by  last  name. 

The  display  research  area  option,  lets  a  user  view  the  several  broad  ITM  research 
areas.  If  a  user  selects  a  research  area  that  has  subareas,  he  is  asked  to  pick  a  research 
subarea  to  view.  A  research  area  and  research  subarea  have  identical  structures,  i.e.,  they 
both  have  a  brief  description  and  publications  associated  with  them. 

The  research  centers  and  labs  describe  current  research  projects  by  some  of  the 
ITM  faculty.  A  user  can  view  a  research  center  or  lab  by  selecting  the  browse  research 
centers  and  labs  option. 

One  of  the  main  objectives  of  the  research  catalog  is  to  solicit  sponsors  for  further 
research.  A  list  of  the  current  research  sponsors  is  viewed  by  selecting  "Sponsors"  on  the 
Browse  Menu. 

The  ITM  professors  have  written  many  publications  documenting  their  research 
knowledge  and  findings.  They  can  be  viewed  by  selecting  "Publications." 
B.  ITM  FACULTY 

A  professor  can  access  the  catalog  to  browse  its  contents  or  update  his  research 
information.    If  the  latter,  he  has  to  log  into  the  catalog.  Each  faculty  member  is  given  a 
faculty  code  and  password  that  must  be  entered  correctly  to  access  the  available 
selections  on  the  Catalog  Menu,  Figure  18. 
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Figure  18.  The  Catalog  Menu 
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C.  SYSTEM  ADMINISTRATOR 

The  system  administrator  must  log  into  the  catalog  using  his  login  ID  and 
password  to  perform  any  maintenance  tasks.    Once  he  is  successfully  logged  in,  Figure 
19,  is  displayed  for  him  to  choose  his  selections.  The  system  administrator's  "Main 
Menu"  has  more  options  available  than  the  other  two  menus,  because  he  has  the 
capabilities  of  those  menus  as  well  as  additional  ones  to  maintain  the  catalog's  integrity. 
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Figure  19.  Main  Menu 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

This  thesis  is  a  major  improvement  to  Barbara  Franklin's  static  research  catalog 
web  pages.    It  describes  the  development  and  implementation  of  a  relational  database 
approach  to  easily  and  quickly  maintain  the  catalog.  This  seemed  to  be  the  most  logical 
solution,  since  there  are  relations  between  the  common  fields  that  must  be  navigable  by  the 
system;  these  relations  are  most  effectively  accomplished  by  relational  join  operations.  By 
having  the  application  on  a  WWW  server,  it  makes  the  research  catalog  possible  to  be 
viewed  by  potential  sponsors,  various  DOD  agencies,  and  millions  of  people  who  have  a 
frames  capable  browser  and  access  to  the  WWW.  Another  important  advantage  of  having 
the  catalog  on  a  server  is:  (a)  it  can  be  maintained  by  the  ITM  faculty,  and  (b)  can  be  done 
so,  regardless  of  their  operating  platform.  This  is  due  to  the  TCP/IP  protocol  that  the 
WWW  uses.  TCP/IP  allows  reasonably  efficient  and  error-free  transmission  between 
different  systems[Ref.  2]. 

The  structured  techniques  used  were  critical  in  the  design  and  implementation  of 
the  application.  The  key  to  the  successful  completion  of  the  catalog  is  the  perseverance 
and  over  300  arduous  hours  the  author  spent  self-learning  and  programming  in  Delphi. 

The  application  system  developed  in  this  thesis  will  require  the  attention  of  a 
system  administrator  to  function  properly.  It  is  recommended  that  Christine  Smith  who 
currently  manages  the  web  pages  for  the  SM  Department,  be  the  system  administrator  for 
the  application.    Ideally,  access  to  the  catalog  should  occur  via  a  link  from  the  SM 
Department's  home  page.  This  would  provide  the  best  means  for  the  ITM  professors  and 


27 


other  WWW  clients  to  use  the  system.  Next,  the  professors  need  to  be  informed  about  the 
system  and  given  an  account.  Once  this  is  done,  the  professors  can  use  the  system  at  their 
leisure.  The  author  does  not  anticipate  any  need  for  formal  training  on  how  to  use  the 
system;  the  users'  interfaces  are  pretty  intuitive.  The  professors  should  notify  the  system 
administrator  if  they  have  any  questions,  problems,  or  changes  they  desire  that  only  the 
system  administrator  can  perform. 
B.  RECOMMENDATIONS 

Future  work  is  needed  to  make  the  on-line  research  catalog  an  even  better  product. 
The  current  catalog  does  not  use  dynamic  SQL  statements  or  has  search  capabilities. 
Dynamic  SQL  statements  are  statements  that  are  not  bound  at  design-time,  but  instead  are 
bound  when  executed  by  using  parameterized  SQL  statements[Ref.  3].  Parameterized 
queries  give  you  more  flexibility  in  varying  the  condition  on  which  you  base  your  SQL 
statements[Ref.  3].  A  search  feature  would  greatly  assist  users  in  immediately  finding  the 
exact  information  they  want.    As  the  system  stands  now,  a  user  has  to  browse  through  the 
catalog  to  ascertain  if  it  contains  any  information  he  desires.  Also,  counters  regarding  the 
number  of  times  the  catalog  pages  have  been  accessed  would  provide  statistical 
information  on  the  exposure  of  the  research  catalog. 
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APPENDIX.  CGI  SCRIPTS 

A.    WWW  CLIENTS  SCRIPTS 

1.    Browse  Catalog  Menu  Script 

unitBrowcatl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB,  DBTables; 

type 
TForml  -  class(TForm) 

CGIEnvDatal:  TCGffinvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

DataSource3 :  TDataSource; 

Query3:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 
with  CGIEnvDatal  do 

begin 


29 


{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

{standard  header  information} 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  Browse  Catalog  Menu1 ); 

send(  '^HEADxBODYBGCOLOR^'ADEAEA"^ ); 

send  ('<centerxHl>Browse  Catalog  Menu</Hlx/center>'); 

{List  items  that  a  user  can  browse} 

sendHR; 

send('<H3>ITM  Faculty  Research  Pages</H3>'); 

send('<center>'); 

send('<TABLEBORDER=5  CELLPADDING=5>,); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1 .  ^O.SQ^S/cgi-win/browse/dspjge.exe"^); 

send(,<TR>'); 

send('<TD  ALIGN="CENTER,,xSELECTNAME="FacultyCode"  TYPE="text"  SIZE=1>'); 

with  Query  1  do     {List  faculty  options  by  last  name} 
begin 
close; 

SQL.Add('SELECT  FacultyCode,  LastName"); 
SQL.  Add(TROM  Faculty '); 
SQL. Add('ORDER  BY  LastName'); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 
send('<OPTION  VALUE=  ",+FieldByName(TacultyCode,).AsSt^ing+,">,); 
sendOFieldByNameCLastName^.AsString); 
next;  {puts  cursor  on  next  record} 
end; 
close; 
end;  {End  Query  1 } 
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send^/SELECTx/TDx/TR^); 

send('<TRxTD  ALIGN="CENTER">'); 

send('<EMPUT  TYPE=SUBMIT  VALUE="  Submit  Selection"  ALIGN="MIDDLE">'); 

send('</TDx/FORMx/TABLE>'); 

send('</center>'); 

sendHR; 

send('<H3>  ITM  Faculty  Research  Areas</H3>'); 

send('<center>1); 

send('<TABLEB0RDER=5  CELLPADDING=5>,); 

send('<FORM  METHOD  =  POST  ACTION=  '); 
send("'http://13 1. 120.39.65/cgi-win/b^owse/dsp_a^ea.exe">,); 
send('<TR>'); 

send('<TD  ALIGN="CENTER"xSELECTNAME="ResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 

with  Query2  do      {List  Research  Areas  Options} 
begin 
close; 

SQL.Add('SELECT  DISTINCT  ResearchAreaTitle'); 
SQL.  Add(TROM  RES_AREA '); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 
send('<OPTION  VALUE=  ",+FieldByName(,ResearchAreaTitle,).AsString+,">,); 
send(FieldByName(^esearchAreaTitle').AsString); 
next;  {puts  cursor  on  next  record} 
end; 
close; 
end;    {End  Query  2} 

send('</SELECTx/TDx/TR>'); 

send('<TRxTD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="  Submit  Selection"  ALIGN^'MIDDLE'V); 

send(,</TDx/FORMx/TABLE>'); 

send('</center>'); 
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sendHR; 

send('<H3>Research  Centers  and  Labs</H3>'); 

send('<center>'); 

send('<TABLEB0RDER=5  CELLPADDING=5>,); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1. 120.39.65/cgi-win/b^owse/b^s_labs.exe">,); 

send('<TR>'); 

send('<TD  ALIGN="CENTER"xSELECTNAME="CenterorLab"  TYPE="text"  SIZE=1>'); 

with  Query3  do      {List  Research  Centers  And  Labs  Options} 
begin 
close; 

SQL.Add('SELECT  CenterorLab'); 
SQL.  Add(TROM  RES_CENT *); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  m+Fiela^yName(,CenterorLabO.AsString+,,,>'); 

send(FieldByName('CenterorLab').AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end;     {End  Query  3} 

send('</SELECTx/TDx/TR>'); 

send('<TRxTD  ALIGN="CENrER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE=" Submit  Selection"  ALIGN^'MIDDLE"^); 

send(,</TDx/FORMx/TABLE>'); 

send('</center>'); 

sendHR; 

send('<H3>Other  Areas</H3>'); 

send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 
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send(,<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 
send(*"http://13 1 .  ^O.S^S/cgi-winftrowseft^spon.exe"^); 
send('<TD  ALIGN="CENTER"xiNPUT  TYPE=SUBMTT 
VALUE="  Sponsors"x/TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 
send('"http://13 1.  ^O.SQ^S/cgi-wii^rowse^sjubs.exe"^); 
send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMTT 
VALUE="Publications"x/TDx/FORM>'); 

send^/TRx/TABLEx/CENTER^); 

send(  ,</BODYx/HTML>' ); 
closeStdout; 
closeAPP(application); 
end; 
end; 

end. 
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2.    Browse  ITM  Faculty  Research  Page 

unitDsp_pgel; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB1:  TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

CGIDB2:  TCGIDB; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

CGIDB3:  TCGIDB; 

DataSource3:  TDataSource; 

Query3:  TQuery; 

CGIDB4:  TCGIDB; 

DataSource4:  TDataSource; 

Query4:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
FacultyCode  :  string; 


34 


begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
websitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

FacultyCode  :=  GetSmallField(TacultyCode'); 

{build  research  page  using  join  of  necessary  tables} 
with  query  1  do 
begin 
close; 
SQL.  clear; 

SQL.Add('SELECT  DISTINCT  * '); 
SQL.  Add(TROM  FACULTY,RES_PAGF); 

SQL.AddCWHERE  RESJPAGE.FacultyCode  =  FACULTY.FacultyCode ' ); 
SQL.  Add('AND  RES_PAGE.FacultyCode  =  "'  +  FacultyCode  +""); 
open; 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  Display  Research  Page' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">, ); 

send('<centerxHl>ITM  Faculty  Research  Page</hlx/center>'); 
if  FacultyCode  =  'SM/Ah'  then 

send(,<IMGALIGN=LeftSRC="http://131.120.39.65/ITM/Pictures/Ah.gif,>,) 
else  if  FacultyCode  =  'SM/Bd'  then 

send(,<IMGALIGN=LeftSRC=,,http://131.120.39.65/ITM/Pictures/Bd.gif,>,) 
else  if  FacultyCode  =  'SM/Bh'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1. 120.39.65/ITM/Pictures/Bh.gif '>') 
else  if  FacultyCode  =  'SM/Bu'  then 

send('<IMG  ALIGN=Left  SRC=,,http://131.120.39.65/ITM/Pictures/Bu.gif, >') 
else  if  FacultyCode  =  'SM/Dk'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1 .  120.39.65/ITM/Pictures/Dk.gif '>') 
else  if  FacultyCode  =  'SM/Ey'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1 .  120.39.65/ITM/Pictures/Ey.gif '>') 
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else  if  FacultyCode  =  'SM/Fw'  then 

send('<IMG  ALIGN=Left  SRC="http://131.120.39.65/ITM/Pictures/Fw.gif,>,) 
else  if  FacultyCode  =  'SM/Hg'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1 .  120.39.65/ITM/Pictures/Hg.gif '>') 
else  if  FacultyCode  =  'SM/Ka'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1 .  120.39.65/ITM/Pictures/Ka.gif '>') 
else  if  FacultyCode  =  'SM/Ra'  then 

send(,<IMGALIGN=LeftSRC="http://131.120.39.65/ITM/Pictu^es/Ra.gif,>,) 
else  if  FacultyCode  =  'SM/Se'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1 .  120.39.65/ITM/Pictures/Se.gif '>') 
else  if  FacultyCode  =  'SM/Ss'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1. 120.39.65/ITM/Pictures/Ss.gif  '>') 
else  if  FacultyCode  =  'SM/Sr'  then 

send('<IMG  ALIGN=Left  SRC="http://13 1 .  120.39.65/ITM/Pictures/Sr.gif '>'); 

send('<UL>'); 

send(FieldByNameCLastName').AsString); 

send(FieldByName(TirstName').AsString); 

sendOFieldByNameCMiddlelnitial^.AsString); 

send('<BR>'); 

send(FieldByName(Title').AsString); 

send('<BR>'); 

send(FieldByName(T>egree').AsString); 

sendC, '); 

send(FieldByName('Schoor).AsString); 

send('  '); 

send(FieldByName(,GradYear').AsString); 

send('<BR>'); 

send(FieldByName('PhoneAreaCodel).AsString); 

send(FieldByName(ThoneLocalNumberl).AsString); 

send('<BR>'); 

sendCFieldByNameCEmail^.AsString); 

send('<BR>'); 

send(FieldByName(TIomePage').AsString); 

send('</UlXBR  CLEAR=LEFT>'); 

send('<BR>'); 

sendC^P^); 

send('<BxH3>Research  Areas</H3x/B>'); 

CGIDB 1 .  SendMemoCFieldByNameCResearchAreas')); 

send('<P>'); 

send('<B><H3  >Research  Description</H3  x/B>'); 
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CGIDB 1 .  SendMemo(FieldByNameCResearchDescription')); 

send('<P>'); 

send('<BxH3>Relevance  to  D0D/D0N</H3x/B>'); 

CGBDB 1 .  SendMemo^ieldByNameCRelevancetoDOD/DON1)); 

Query  1.  close; 
end;     {Query  1} 

Send('<P>'); 
Send(,<BXH3>RecentPublications</H3x/B>'); 

With  query2  do 
begin 
close; 
SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.Add(TROM  PAGEPUB,PUBS,JOURNAL'); 
SQL.Add(*WHERE  PAGEPUB.PubTitle  =  PUBS.PubTitle'); 
SQL.  Add('AM)  PUBS.PubTitle  =  JOURNAL.PubTitle'); 
SQL.Add('AND  PAGEPUB.FacultyCode  -  "'  +  FacultyCode  +""); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

CGIDB2.SendMerno(FieldByName('  Author')); 

send(','); 

send(""); 

sendCFieldByNameCPubTitleO.AsString); 

send('",'); 

send('<i>'); 

send(FieldByName(' JournalName') .  AsString); 

send('</i>'); 

If  FieldByname('Volume').AsString  o  "then 

begin 

send('Vol'); 

send(FieldByName(' Volume').  AsString); 

end; 

If  FieldBynameCNumber').AsString  o  "then 

begin 

sendCNo'); 

send(FieldByNameCNumber'). AsString); 
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end; 

send(FieldByName(TubMonth').AsString); 

sendOFieldByNameCPubYe^.AsString); 

If  FieldByname(Tages').AsString  o  "then 

begin 

send(':'); 

send(FieldByName(Tages').AsString); 

end; 

send(FieldByNameCNote').AsString); 

send('<BR>'); 
send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
Query2. close; 
end;     {Query  2} 

With  query3  do 
begin 
close; 
SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.Add(TROM  PAGEPUB,PUBS,OTHERPUB'); 
SQL.Add(rWHERE  PAGEPUB.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('AND  PUBS.PubTitle  =  OTHERPUB.PubTitle'); 
SQL.  Add('AND  PAGEPUB.FacultyCode  =  "  +  FacultyCode  +""); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 
while  not  EOF  do 
begin 

CGDDB3 .  SendMemo(FieldByName(' Author')); 

send(V); 

send(""); 

send(FielcffiyName(TubTitle').AsString); 

sendC",'); 

CGIDB3 .  SendMemoCFieldByNameCCitation')); 

send(FieldByName('PubMonth,).AsString); 

send(FieldByName(TubYear').AsString); 

send(,<BR>'); 
send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
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Query3.  close; 
end;  {Query  3} 

With  query4  do 
begin 
close; 
SQL.  clear; 

SQL.Add('SELECT  * '); 
SQL.  Add(T"ROM  PAGEPUB,PUBS,BOOKS'); 
SQL.  AddCWHERE  PAGEPUB.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('AND  PUBS.PubTitle  =  BOOKS.  PubTitle'); 
SQL.Add('AND  PAGEPUB.FacultyCode  =  *"  +  FacultyCode  +*"•); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 
CGIDB4.SendMemo(FieldByName(,Author')); 
send(7); 
send(,m); 

send(FieldByNameCPubTitle').AsString); 
send("V); 

sendCFieldByNameCVolumeOAsString); 
send(FieldByName('Series').AsString); 
send(FielaT3yName(liditiori).AsString); 
send(FieldByName('Publisherl).AsString); 
send(FieldByName('Street').AsString); 
send^ieldByNameCCity^.AsString); 
send(FieldByName('State').AsString); 
sendCFieldByNameCZip^.AsString); 
send(FieldByName('PubMonth,).AsString); 
send(FieldByName('PubYear,).AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
Query4. close; 
end;    {Query4} 

send('<p>'); 

sendHR; 

send('<p>'); 
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{send  user  back  to  Browse  Menu} 
sendC<CENTER>'); 
send('<FORM  method=post  action="'+ 
'http://13 1 .  ^O.S^S/cgi-win/browse/browscat.exe"^); 
send('<input  type=" submit"  value="Browse  Catalog  Menu">'); 
send^/form^); 
send('</CENTER>'); 

send(  ^/BODYx/HTM^' ); 

closeStdout; 
closeApp(  application  ); 

end; 
end; 

end. 
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3.    Browse  Research  Areas 

unit  Dspareas; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

CGIDB2:  TCGIDB; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

DataSource3 :  TDataSource; 

Tablel:  TTable; 

CGIDB3:  TCGIDB; 

DataSource4:  TDataSource; 

Query3:  TQuery; 

CGIDB4:  TCGIDB; 

DataSource5:  TDataSource; 

Query4:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
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ResearchAreaTitle :  string; 
SubAreasExist      :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
websitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

ResearchAreaTitle  :=  GetSmallFieldCResearchAreaTitle'); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  Display  Research  Areas' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

send('<centerxHl>ITM  Faculty  Research  Areas</hlx/center>'); 

with  Table  1  do    {Search  Table  for  record  to  be  modified) 
begin 
open; 

FindKey([ResearchAreaTitle]); 
end; 

SubAreasExist  :=  Table l.FieldByName('Sub Areas'). AsString; 
Table  1.  close; 

If  SubAreasExist  =  'Yes'  then 

begin 
send('<h3>The  research  area  you  selected  to  browse  has  research '); 
send('subareas.  Choose  the  research  subarea  you  want  to  browse.</h3>'); 
send('<P>'); 

send('<center>'); 

send('<TABLEBORDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION=  '); 
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send('"http://13 1.  HO.SQ^S/cgi-wii^rowse/publsub.exe"^); 
send('<TR>'); 

send('<TDxSELECTNAME="ResearchSubAreaTitle"  TYPE="text"  SIZE=1>'); 

with  Query  1  do 
begin 
close; 

SQL.Add(,SELECTRES_SUBA.ResearchSubAreaTitle'); 
SQL.Add(TROM  RES_SUBA'); 

SQL.AddOWHERE  RES_SUBAResearchAreaTitle  =  '"  +  ResearchAreaTitle  +  '"'); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  ,"+FieldByName(,ResearchSubAreaTitle,).AsString+,,,>,); 
send(FieldByNameCResearchSubAreaTitle').AsString); 
next;  {puts  cursor  on  next  record} 
end; 
Query  1.  close; 
end; 

sendC^/SELECTx/TDx/TR^); 

sendC</TABLE>'); 

send('<INPUT  TYPE=SUBMTT  VALUE=" Submit  Information"^); 

send('</FORM>'); 

send('<P>'); 

send('<FORM  method=post  action="'+ 
'http://13 1 .  ^OJP.eS/cgi-win/browse/browscat.exe"^); 

send(*<input  type="submit"  value=" Cancel,  Return  to  Browse  Catalog  Menu">'); 
send(,</form>*); 
send('</CENTER>'); 
end 

else    {no  subareas} 

begin  {build  research  page  using  join  of  necessary  tables} 
with  query  1  do 
begin 
close; 
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SQL.  clear; 

SQL.Add('SELECT  DISTINCT  * '); 

SQL.  AddCFROM  RES_AREA); 

SQL.  Add(rWHERE  RES_AREA.ResearchAreaTitle  =  "'  +  ResearchAreaTitle  +""); 

open; 

send('<B>'); 

send(FieldByName(T^esearchAreaTitle').AsString); 

send('</B>'); 

send('<P>'); 

CGIDB 1 .  SendMemo(FieldByNameCResearchAreaBrief )); 

send('<P>'); 
close; 
end; 

send('<H4>Publications:</H4>'); 
send('<P>'); 

With  query2  do 
begin 
close; 
SQL.clear; 

SQL.Add('SELECT  * '); 

SQL.  Add(TROM  PUB  AREA,PUBS,  JOURNAL'); 
SQL.AddCWHERE  PUBAREA.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('ANE)  PUBS.PubTitle  =  JOURNAL.PubTitle'); 
SQL.Add('AND  PUBAREAResearchAreaTitle  =  "'  +  ResearchAreaTitle  +""); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

CGIDB2.SenclMemo(FieldByName(,Author,)); 

send(7); 

send(""); 

send(FieldByName(*PubTitle').AsString); 

sendC); 

send("<i>'); 

send^ieldByNameCJournalName^.AsString); 

send('</i>'); 

If  FieldBynameCVolume^.AsString  o  "then 

begin 

send('Vol'); 
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send(FieldByName('Volume').AsString); 

end; 

If  FieldByname('Number').AsString  o  "then 

begin 

sendCNo'); 

send(FieldByNameCNumber').AsString); 

end; 

send(FieldByNameCPubMonth').AsString); 

sendCFieldByNameCTubYearO-AsString); 

If  FieldByname(Yages').AsString  o  "then 

begin 

send(':'); 

sendOFieldByNameCPages*) .  AsString) ; 

end; 

send(FieldByName('Note,).AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
close;  {close  query  2} 
end; 

With  query3  do 
begin 
close; 
SQL.  clear; 

SQL.Add('SELECT  *  '); 
SQL.  AddCFROM  PUBAREA,PUBS,BOOKS'); 
SQL.  AddCWHERE  PUBAREA.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('AND  PUBS.PubTitle  =  BOOKS. PubTitle'); 
SQL. Add('AND  PUBAREAResearchAreaTitle  =  "'  +  ResearchAreaTitle  +""); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 
CGroB4.SendMemo(FieldByName(' Author1)); 
send(V); 
send(,,M); 

send(FieldByNameCPubTitle').AsString); 
send("7); 
send(FieldByName(' Volume') .  AsString); 
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send(TieldByName('Series').AsString); 

send(FieldByNameCEdition').AsString); 

send(FieldByName('Publisher,).AsString); 

send(Fiela^yName('Street%AsString); 

send(FieldByName('CityO.AsString); 

send(FieldByName('State').AsString); 

send(FieldByName('Zip').AsString); 

send(FieldByName(TubMonth').AsString); 

send(FieldByName(TubYear').AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
close;  {Query  3} 
end; 

With  query4  do 
begin 
close; 
SQL.  clear; 

SQL.Add('SELECT  *  '); 

SQL.Add(TROM  PUBAREA,PUBS,OTHERPUB'); 
SQL.AddCWHERE  PUBAREA.PubTitle  =  PUBS.PubTitle1); 
SQL.Add('AND  PUBS.PubTitle  =  OTHERPUB.PubTitle'); 
SQL.Add('AND  PUBAREA.ResearchAreaTitle  =  '"  +  ResearchAreaTitle  +""); 

open; 

first;  {puts  cursor  on  first  record  in  answer  table} 
while  not  EOF  do 
begin 

CGIDB4.SendMemo(FieldByName(,Author')); 

send(7); 

send(,,M); 

send(FieldByNameCPubTitle').AsString); 

sendC",1); 

CGIDB4.SendMemo(FieldByName(,Citation,)); 
send(FieldByName(PubMonth').AsString); 
send(Field^yName('PubYear,).AsString); 

send('<BR>'); 
send('<BR>'); 
next;  {puts  cursor  on  next  record} 
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end; 
close; 
end; 

sendHR; 

(send  user  back  to  Browse  Menu} 

send('<CENTER>'); 

send('<FORM  method=post  action='"+ 

'http://13 1. 120.39.65/cgi-win/browse^^owscat.exe">,); 
send('<input  type=" submit"  value="  Browse  Menu">'); 
send^/form^); 
send('</CENTER>'); 

end;  {End  Else  Part} 

send(  ,</BODYx/HTML>, ); 

closeStdout; 

closeApp(  application  ); 

end; 
end; 

end. 

{ Browse  Research  SubAreas} 

unitPub2subl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgidb,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 
CGIEnvDatal:  TCGIEnvData; 
DataSourcel:  TDataSource; 
Query  1:  TQuery; 
DataSource2:  TDataSource; 
Query2:  TQuery; 
CGIDB  1:TCGIDB; 
CGIDB2:  TCGIDB: 
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CGIDB3:  TCGIDB; 

DataSource3:  TDataSource; 

Query3:  TQuery; 

CGIDB4:  TCGIDB; 

DataSource4:  TDataSource; 

Query4:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
ResearchSubAreaTitle :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
websitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

ResearchSubAreaTitle  :=  GetSmallFieldCResearchSubAreaTitle'); 

send(  ^HTMLXHEAD^  ); 

sendTitle(  Display  Research  SubAreas1 ); 

send(  ,</HEADxBODYBGCOLOR="ADEAEA,'>' ); 

send('<centerxHl>ITM  Faculty  Research  SubArea</hl></center>'); 
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{build  research  page  using  join  of  necessary  tables} 
with  query  1  do 
begin 
close; 
SQL.  clear; 

SQL. Add('SELECT  DISTINCT  *  '); 
SQL.  Add(TROM  RES_SUBA'); 

SQL.AddCWHERE  RES_SUBA.ResearchSubAreaTitle  =  '"  +  ResearchSubAreaTitle  +""); 
open; 

send('<B>,); 

send(FieldByNameCResearchSubAreaTitle').AsString); 
send('</B>'); 
send('<P>'); 

CGBDB 1 .  SendMemo(FieldByName('ResearchSubAreaBrief )); 
send('<P>'); 
close; 
end; 

send^H^Publications:^^'); 
send('<P>'); 

With  query2  do 
begin 

close; 

SQL.clear; 

SQL.Add('SELECT  *  '); 

SQL.Add(TROM  PUBSAREA,PUBS,JOURNAL'); 

SQL.AddCWHERE  PUBS  ARE  APubTitle  -  PUBS.PubTitle'); 

SQL.Add('AND  PUBS.PubTitle  =  JOURNAL.PubTitle'); 

SQL.Add('AND  PUBSAREA.ResearchSubAreaTitle  =  '"  +  ResearchSubAreaTitle  +""); 

open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

CGIDB2.SendMemo(FieldByName(,Author,)); 

send(7); 

send(,m); 

send(FieldByName(TubTitle').AsString); 

sendC",'); 

send('<i>'); 

send(FieldByName('JournalName').AsString); 
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send('</i>'); 

If  FieldByname('Volume').AsString  o  "then 

begin 

send('Vol'); 

send(FieldByName('Volume').AsString); 

end; 

If  FieldBynameCNumber^.AsString  o  "then 

begin 

sendCNo'); 

send(FieldByNameCNumber').AsString); 

end; 

send(FieldByName('PubMonth,).AsString); 

send(FieldByName(PubYear').AsString); 

If  FieldBynameCPages').AsString  o  "then 

begin 

send(':'); 

send(FieldByNameCPages').AsString); 

end; 

send(FieldByNameCNote').AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
close;  (close  query  2} 
end; 

With  query3  do 
begin 
close; 
SQL.  clear; 

SQL.Add('SELECT  *  '); 

SQL.Add(TROM  PUBSAREA,PUBS,BOOKS'); 
SQL.AddCWHERE  PUBSAPxEA.PubTitle  =  PUBS.PubTitle'); 
SQL.Add('AND  PUBS.PubTitle  =  BOOKS.  PubTitle'); 

SQL.Add('AND  PUBSAREAResearchSubAreaTitle  =  '"  +  ResearchSubAreaTitle  +""); 
open; 
first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 
CGroB4.SendMemo(FieldByName('  Author1)); 
send(7); 
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send(,m); 
send(FieldByName(PubTitle%AsString); 

send("','); 

send(FieldByName(' Volume1) .  AsString) ; 

send(FieldByName('Series').AsString); 

send(FieldByName(liditiori).AsString); 

send(FieldByNameCPublisher').AsString); 

sendOFieldByNameCStreet^.AsString); 

send(FieldByName('CityO.AsString); 

send(FieldByName('State').AsString); 

send(FieldByName('Zip'). AsString); 

sendOFieldByNameCTubMonth^.AsString); 

send(FieldByName('PubYear,).AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
close;  (Query  3} 
end; 

With  query4  do 
begin 
close; 
SQL.clear; 

SQL.Add('SELECT  *  '); 

SQL.Add(TROM  PUBSAREA.PUBS^THERPUB1); 
SQL.AddCWHERE  PUBSAREA.PubTitle  =  PUBS.PubTitle'); 
SQL.AddfAND  PUBS.PubTitle  =  OTHERPUB.PubTitle'); 
SQL.Add(*AND  PUBSAREA.ResearchSubAreaTitle  =  '"  +  ResearchSubAreaTitle  +""); 

open; 

first;  (puts  cursor  on  first  record  in  answer  table} 
while  not  EOF  do 
begin 

CGIDB4.SendMemo(FieldByName(,Author,)); 

send(\'); 

send(""); 

sendCFieldByNameCPubTitle^.AsString); 

sendC",'); 

CGIDB4.SendMemo(FieldByName(,Citation,)); 
send(FieldByName('PubMonth,).AsString); 
send(FieldByName(*PubYear').AsString); 
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send^BR^); 

send('<BR>'); 

next;  (puts  cursor  on  next  record} 
end; 
close; 
end; 

sendHR; 

{send  user  back  to  Browse  Menu} 

send('<CENTER>'); 

send('<FORM  method=post  action="'+ 

'http://13 1. 120.39.65/cgi-win/b^owse/browscat.exe,,>,); 

send('<input  type="submit"  value="  Browse  Catalog  Menu">'); 

send('</form>'); 

send('</CENTER>'); 

send(  '</BODYx/HTML>' ); 

closeStdout; 

closeApp(  application  ); 
end; 
end; 
end. 
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4.    Browse  Research  Centers/Labs 

unit  Brslabs; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
CenterorLab  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

websitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
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application.processMessages; 

createStdout; 
sendPrologue; 

CenterorLab  :=  GtetSmallField('CenterorLab'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  Display  Research  Areas'  ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEAH>, ); 

with  query  1  do 
begin 
close; 
SQL.  clear; 

SQL.AddCSELECTCenterorLa^CenterorLabOverview1); 
SQL.  Add(TROM  RES_CENT); 

SQL.AddCWHERE  RES_CENT.  CenterorLab  =  "'  +  CenterorLab  +""); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<centerXB>'); 

send(FieldByName('CenterorLab').AsString); 

send('</BXPx/center>'); 

CGIDB 1 .  SencMemo(FieldByName('CenterorLabOverview')); 

send('<P>'); 

next;  {puts  cursor  on  next  record} 
end; 
Query  1.  close; 
end; 

with  query2  do 
begin 
close; 
SQL.  clear; 

SQL.Add('SELECT  * '); 
SQL.  Add(TROM  FACULTY,  RES_CENT); 

SQL.Add('WHERE  FACULTY.FacultyCode  =  RES_CENT.FacultyCode'); 
SQL.Add('AND  RES_CENT.  CenterorLab  =  '"  +  CenterorLab  +""); 
open; 
first; 
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while  not  EOF  do 
begin 
send(Tor  additional  information  contact  Professor '); 
send(FieldByName(TirstNamel) .  AsString); 
send(FieldByName(l,astName%AsString); 
send('at '); 

send(FieldByName(ThoneAreaCode').AsString); 
send(FieldByName(ThoneLocalNumber%AsString); 
send('or '); 

send(FieldByNameCEmail').AsString); 
next;  {puts  cursor  on  next  record} 
end; 
Query2.  close; 
end; 

sendHR; 
send(*<p>'); 

{send  user  back  to  Browse  Menu} 
send('<CENTER>'); 
send('<FORM  method=post  action='"+ 
'http://13 1 .  ^O.S^S/cgi-win/browse/browscat.exe"^); 
send('<input  type=" submit"  value="  Browse  Catalog  Menu">'); 
send(,</form>'); 
send('</CENTER>,); 

send(  '</BODYx/HTML>' ); 

closeStdout; 
closeApp(  application  ); 

end; 
end; 

end. 
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5.    Browse  Research  Sponsors 

unit  Brsspon; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Query  1 :  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 
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send(  '<HTML><HEAD>'  ); 

sendTitle(  'Browse  Faculty  Account' ); 

send(  '</HEADXBODY  BGCOLOR=" ADEAEA"xCENTER>' ); 

with  query  1  do 
begin 

close; 

SQL.  clear; 

SQL.add('SELECT  Activity'); 

SQL.addCFrom  SPONSOR'); 

open; 

fieldByName  ( 'Activity'  ).displayLabel  :=  'Sponsors'; 
end; 

CGIDBl.drawTable; 
query  1.  close; 

send('<P>'); 

send('<FORM  method=post  action="'+ 

'http://13 1 .  nOJQ.eS/cgi-win/browse/browscat.exe''^); 
send('<input  type="  submit"  value="Browse  Catalog  Menu">'); 
send('</form>'); 
send('</CENTER>'); 

send(  '</BODYx/HTML>' ); 

closeStdout; 

closeApp(application); 


end; 
end; 

end. 
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6.    Browse  Publications 

unitBrsjpubl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:TCGIDB; 

DataSourcel:  TDataSource; 

Queryl:  TQuery; 

CGIDB2:  TCGIDB; 

CGIDB3:  TCGIDB; 

DataSource2:  TDataSource; 

DataSource3:  TDataSource; 

Query2:  TQuery; 

Query3:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

websitelNIFilename  :=  paramstr(l); 

58 


application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

{standard  header  information} 

send(  '<HTML><HEAD>'  ); 

sendTitle(  T)isplay  Publications' ); 

send(  ,</HEADxBODYBGCOLOR=,,ADEAEA">, ); 

Send(,<centerXBXH3>RecentPublications</H3x/Bx/center>'); 

With  query  1  do 
begin 
close; 
SQL.  clear; 

SQL.Add('SELECT  * '); 
SQL.Add(TROM  PUBS,  JOURNAL'); 
SQL.Add('WHERE  PUBS.PubTitle  =  JOURNAL.PubTitle'); 
open; 
first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

CGIDB 1 .  SendMemo(FieldByName('  Author')); 

send(7); 

send(""); 

send(FieldByNameCPubTitle').AsString); 

send('",'); 

send(*<i>'); 

send(FieldByName('JournalName').AsString); 

send('</i>'); 

If  FieldBynameCVolume^.AsString  o  "then 

begin 

send('Vol'); 

send(FieldByName('Volume').AsString); 

end; 

If  FieldBynameCNumber').AsString  o  "then 

begin 

sendCNo'); 

send(FieldByNameCNumber').AsString); 

end: 
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send(FieldByNameCPubMonth').AsString); 
send(FieldByName("PubYear').AsString); 
If  FieldByname(Tages').AsString  o  "then 
begin 

send(':'); 

send(FieldByName(Tages') .  AsString); 

end; 

send(FieldByName(TSrote').AsString); 

send('<BR>'); 
sendC<BK>0; 

next;  {puts  cursor  on  next  record} 
end; 
Query  1.  close; 
end;     {Query  1} 

With  query2  do 
begin 
close; 
SQL.clear; 

SQL.Add('SELECT  * '); 
SQL.Add(TROM  PUBS,OTHERPUB'); 
SQL.Add('WHERE  PUBS.PubTitle  =  OTHERPUB.PubTitle'); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 
while  not  EOF  do 
begin 

CGroB2.SendMemo(Fiel<ffiyName(,Author')); 

send(7); 

sendC"); 

send(FieldByName(TubTitle').AsString); 

sendC",'); 

CGIDB2.SendMemo(FieldByName(,Citation,)); 
send(FieldByNameCPubMonth').AsString); 
send(FieldByName(TubYear,).AsString); 

send('<BR>'); 
send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 

Query2.  close; 
end;  {Query  2} 
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With  query3  do 
begin 
close; 
SQL.  clear; 

SQL.Add('SELECT  *  '); 
SQL.Add(TROM  PUBS,BOOKS'); 
SQL.Add(*WHERE  PUBS.PubTitle  =  BOOKS. PubTitle'); 
open; 
first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 
CGIDB3 .  SendMemoCFieldByNameCAuthor')); 
send(7); 
send(MM); 

send(FieldByName(PubTitle%AsString); 
send("7); 

send(FieldByName('Volume').AsString); 
sendfTieldByName^Series^.AsString); 
send(FieldByNameCEdition') .  AsString); 
send(FieldByName(Tublisher').AsString); 
send(FieldByName('Streef).AsString); 
send(FieldByName('City').AsString); 
sendCFieldByNameCState^.AsString); 
send^ieldByNameCZip^.AsString); 
send(FieldByName(TubMonth').AsString); 
send(FieldByName(YubYear').AsString); 

send('<BR>'); 

send('<BR>'); 

next;  {puts  cursor  on  next  record} 
end; 
Query3.  close; 
end;    {Query3} 
send('<p>*); 
sendHR; 
send('<p>'); 

{send  user  back  to  Browse  Menu} 
send('<CENTER>'); 
send('<FORM  method=post  action="'+ 
'http://13 1 .  nOJ^S/cgi-win/browse/browscatexe"^); 
send('<input  type=" submit"  value="Browse  Catalog  Menu">'); 
send('</form>'); 
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send('</CENTER>'); 

send(  '</BODYx/HTML>' ); 
closeStdout; 
closeApp(  application  ); 
end; 
end; 


end. 
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B.    ITM  Faculty  SCRIPTS 
1.  Catalog  Menu 

unit  Catalog  1; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

FacultyCode:  string; 
begin 
with  CGIEnvDatal  do 

begin 

{  required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
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application.processMessages; 

createStdout; 
sendPrologue; 

FacultyCode  :=  getSmallField(TacultyCode'); 

{standard  header  information} 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  'Catalog  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA,,>,); 

send  ('<centerXHl>Catalog  Menu</Hlx/center>*); 

{List  research  catalog  items  that  a  faculty  member  can  maintain} 

sendHR; 


send( 


send('<H2>Maintain  Research  Page:</H2>'); 


send( 


send('<TABLEBORDER=5  CELLPADDrNG=5>'); 


send( 
send( 
send( 
send( 
send( 
send( 

send( 
send( 
send( 
send( 
send( 

send( 
send( 
send( 
send( 
send( 


<p>'); 


<CENTER> '); 


<TR>'); 

<FORM  METHOD  =  POST  ACTION='); 

"http://13 1 .  nO.SQ.eS/cgi-win/faculty/apgform.exe"^); 

<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode"  VALUE=,,,+FacultyCode+",>,); 

<TD  ALIGN="CENTER">,); 

<ESfPUT  TYPE=SUBMIT  VALUE="Add"x/TDx/FORM>'); 

<FORM  METHOD  =  POST  ACTION='); 

"http://13 1. 120.39.65/cgi-win/faculty/mpg_show.exe,,>,); 

<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=m+FacultyCode+,,,>,); 

<TD  ALIGN="CENTER">,); 

<INPUT  TYPE=SUBMIT  VALUE="Modify,,x/TDx/FORM>'); 

<FORM  METHOD  =  POST  ACTION= '); 

"http://13 1 .  nOJP^S/cgi-win/faculty/dspjpg.exe"^); 

<INPUT  TYPE=,,HIDDEN,,  NAME="FacultyCodeM  VALUE=",+FacultyCode+",>,); 

<TD  ALIGN=HCENTER">'); 

<INPUT  TYPE=SUBMIT  VALUE=,,Browse,,x/TDx/FORM>'); 


send('<FORM  METHOD  =  POST  ACTION='); 
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send('"http://13 1 .  llOJP.aS/cgi-win/faculty/pg^hk.exe"^); 

send('<INPUT  TYPE="fflDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+,">'); 

send('<TD  ALIGN="CENTERM>'); 

send('<EMPUT  TYPE=SUBMIT  VALUE="Delete"x/TDx/FORM>,); 

send('</TRx/TABLEx/CENTER>,); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H2>Maintain  Publications:</H2>'); 

send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDXNG=5>'); 

send(,<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/pub_^rb.exe,,>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=m+FacultyCode+M,>,); 

send('<TD  ALIGNNTENTER"^); 

send('<INPUT  TYPE=SUBMIT  VALUE^'Add'^/TOx/FORM^); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1.  nOJQ.eS/cgi-win/faculty^sjJub.exe"^); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+",>,); 

send('<TD  ALIGN^CEOTER'V); 

send('<INPUT  TYPE=SUBMIT  VALUE="Browse,,x/TDx/FORM>•); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-will/faculty/dpub_^^b.exeH>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+,">,); 

send('<TD  ALIGN="CENTER">'); 

send('<EMPUT  TYPE=SUBMIT  VALUE="DeleteMx/TDx/FORM>,); 

send('</TRx/TABLEx/CENTER>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

send('<H2>Maintain  Research  Sponsors  :</H2>'); 

send(*<CENTER> '); 
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send('<TABLE  B0RDER=5  CELLPADDING=5>,); 

send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION=  '); 

send('"http://13 1 .  ^O.SQ^S/cgi-win/faculty/aspon^.exe"^); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+m>,); 

send('<TD  ALIGN=,,CENTERM>'); 

send('<INPUT  TYPE=SUBMIT  VALUE=,,Add"x/TDx/FORM>,); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-will/faculty/brs_spo.exe,,>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+m>'); 

send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Browse"x/TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/dspo_lst.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCodeV">'); 

send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="DeleteMx/TDx/FORM>'); 

send(,</TRx/TABLEx/CENTER>,); 

send('<p>'); 

sendHR; 

send('<p>'); 

send('<H2>Maintain  Faculty  Information/Account:</EC>'); 

send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDEN^S^); 

send('<TR>'); 

send('<FORM  METHOD=POST  ACTION='); 

send(mhttp://13 1. 120.39.65/cgi-win/faculty/mfi_form.exeH>,); 

send('<INPUT  TYPE=,,HIDDEN,,  NAME="FacultyCode"  VALUE=m+FacultyCode+",>,); 

send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE="SUBMIT"  VALUE^'Moduyx/TDx/FORM^); 

send('<FORM  METHOD=POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/dsp_fac.exe,,>,); 

send(*<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=m+FacultyCode+m>'); 

send('<TD  ALIGN^'CENTER'^'); 

send('<INPUT  TYPE="SUBMIT"  VALUE="Browse"x/TDx/FORM>*); 
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send('<FORM  METHOD=POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/mfa_fo^m.exe">,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+"*>'); 

send('<TD  ALIGN="CENTERH>'); 

send('<INPUT  TYPE="SUBMIT,,  VALUE="ChangePassword"x/TDx/FORM>'); 

send(*</TRx/TABLEx/CENTER>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

send('<H2>Browse  Research  Areas  :</H2>'); 

send('<CENTER> '); 

send('<TABLEB0RDER=5  CELLPADDING=5>,); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send('"http://13 1. 120.39.65/cgi-win/faculty/b^s_a^ea.exe">,); 

send('<INPUT  TYPE="fflDDEN"  NAME="FacultyCode"  VALUE=,,,+FacultyCode+",>,); 
send('<TR>'); 

send('<TD  ALIGN="CENTER"xSELECT  NAME="ResearchAreaTitle"  TYPE="textM 
SIZE=1>'); 

with  Query  1  do      (List  Research  Area  Options} 
begin 
close; 

SQL.Add('SELECT  DISTINCT  ResearchAreaTitle'); 
SQL.  AddCTUOM  RES_AREA '); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 
send('<OPTION  VALUE=  m+FielciByName(,ResearchAreaTitle,).  AsString+,,,>,); 
send(FieldByNameCResearchAreaTitle').AsString); 
next;  {puts  cursor  on  next  record} 
end; 
close; 
end;    {End  Query  1 } 

send(,</SELECTx/TDx/TR>'); 
send('<TRxTD  ALIGN="CENTERM>'); 
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send('<INPUT  TYPE=SUBMTT  VALUE="Submit  Selection"  ALIGN=,,MIDDLE,,>,); 

send('</TDx/FORMx/TABLE>'); 

send('</center>'); 

sendHR; 

send('<H3>Browse  Centers  and  Labs</H3>'); 

send('<center>'); 

send('<TABLEBORDER=5  CELLPADDING=5>,); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/show_lab.exe,,>,); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode"  VALUE=,"+FacultyCode+",>,); 

send('<TR>'); 

send('<TD  ALIGN="CENTER"xSELECTNAME="CenterorLab"  TYPE="text"  SIZE=1>'); 

with  Queiy2  do      (List  Research  Centers  And  Labs  Options} 
begin 
close; 

SQL.Add('SELECT  CenterorLab'); 
SQL.  AddCFROM  RES_CENT '); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  ",+FieldByName(,CenterorLabO.AsString+,">'); 

send(FieldByName('CenterorLab').AsString); 

next;  (puts  cursor  on  next  record} 
end; 
close; 
end;     {End  Query  2} 

send(,</SELECTx/TDx/TR>'); 

send('<TRxTD  ALIGN="  CENTERS'); 

send('<INPUT  TYPE=SUBMIT  VALUE="  Submit  Selection"  ALIGN^'MIDDLE'^'); 

send('</TDx/FORMx/TABLE>*); 

send('</center>'); 

send(  '</BODYx/HTML>' ); 
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closeStdout; 

closeAPP(application); 
end; 
end; 

end. 
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2.    Add  ITM  Faculty  Research  Page 

{Add  Page  Form} 

unit  Apgforml; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
var 
FacultyCode :  String; 

begin 

with  CGIEnvDatal  do 
begin 
{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 
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FacultyCode  :=  getSmallField(TacultyCode'); 

send(  ,<HTMLXHEAD>, ); 

sendTitle(  'Add  a  Faculty  Research  Page  Form' ); 

send(  '</HEADxBODY  BGCOLOR="  ADEAEA">' ); 

sendCPlease  fill  in  the  below  fields.  When  you  are  finished  click  the  '); 
send('"  Submit"  button '); 

{Registration  Form} 

send('<center>'); 

send('<FORM  method=post  action- ); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/addpage.exeH>,); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode"  VALUE=",+FacultyCode+m>'); 

send('<TABLEBORDER=5  CELLPADDINOS^); 

send('<TRxTD>Last  Name:'); 

send('</TDxtdxinput  type="text"  name="LastName" '); 

send('size=30  maxlength=30x/td>'); 

send('<TRxTD>First  Name:'); 

send('<Aroxtdxmput  type="text"  name="FirstName" '); 

send('size=20  maxlength=20x/td>,); 

send('<TRXTD>Middle  Initial:'); 

send('</TDxtdxinput  type="text"  name="MiddleInitial" '); 

send('size=  1  maxlength=  1  x/td>'); 

send('<TRxTD>Title:'); 

send('</TDxtdxinput  type="text"  name="Title" '); 
send('size=35  maxlength=35x/td>'); 

send('<TRxTD>Degree: '); 

send('</TDxtdxinput  type="text"  name="Degree" '); 

send('size=3  maxlength=3x/td>'); 

send('<TRxTD>Graduate  School:'); 
send('</TDxtdxinput  type="text"  name="  School" '); 
send('size=50  maxlength=50x/td>'); 

send('<TRxTD>Year  Graduated:'); 
send('</TDxtdxinput  type="text"  name="GradYear" '); 
send('size=4  maxlength=4x/td>'); 
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send('<TRxTD>Office  Area  Code:'); 

send('</TDxtdxinput  type="text"  name="PhoneAreaCode" '); 
send('size=3  maxlength=3x/td>'); 

send("<TRxTD>Office  Phone:'); 

send('</TDxtdxinput  type="text"  name="PhoneLocalNumber" '); 

send('size=8  maxlength=8x/td>'); 

send(,<TRxTD>Email:*); 

send('</TDxtdxinput  type="text"  name="Email" '); 

send('size=35  maxlength=35x/td>'); 

sendC<TRxTD>HomePage:*); 

send('</TDxtdxinput  type="text"  name="HomePage" '); 

send('size=40  maxlength=40x/td>'); 

send('<TRxTD>Research  Areas:</TD>'); 
send('<TDxtextarea  rows=3  cols=50  name="ResearchAreas">'); 
send(Tlease  list  your  research  areas  seperated '); 
sendCby  commas  </textarea>'); 

send('<TRxTD>ResearchDescription:</TD>'); 

send('<TDxtextarea  rows=10  cols=50  name^'ResearchDescription"^); 

send(Tlease  provide  a  description  of  your  research  area.</textarea>'); 

send('<TRxTD>Relevance  to  DOD/DON:</TT»'); 
send('<TDxtextarea  rows=5  cols=50  name="RelevancetoDOD/DON">'); 
send(Please  state  how  your  research  area  is  relevant  to  DOD/DON.</textarea>'); 


send(*</TABLE>»); 

sendC<P>'); 

send('<input  type=" submit"  value=  "Submit  Information">'); 

send('<input  type="reset"  value="Clear  Form"x/center>'); 

send(,</form>'); 

send('<P>'); 

{If  user  cancels,  send  user  to  Catalog  Menu} 

sendC<CENTER>'); 

send('<FORM  method=post  action="'+ 

'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=•"+FacultyCode+"•>,); 

send('<input  type="submit"  value="Cancel,  Return  to  Catalog  Menu">'); 
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send(,</form>'); 
send('</CENTER>'); 

send('</BODYx/HTML>' ); 
closeStdout; 
closeApp(  application  ); 
end; 
end; 

end. 

{Add  Research  Page  To  Table} 

unit  Addpagel; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

CGffinvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

DataSource2:  TDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
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FacultyCode  :  string; 
LastName  :  string; 
FirstName  :  string; 
Middlelnitial :  string; 
Title  :  string; 
Degree :  string; 
School :  string; 
Gradyear :  string; 
PhoneAreaCode  :  string; 
PhoneLocalNumber :  string; 
Email :  string; 
HomePage :  string; 

theAreas :  TStringList; 
theDescription :  TStringList; 
theRelevance  :  TStringList; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application.  onException  :=  cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 

FacultyCode     :=  getSmallField(  TacultyCode' ); 

LastName    :=  getSmallField(  "LastName1 ); 

FirstName  :=  getSmallField(  FirstName' ); 

Middlelnitial  :=  getSmallField(  ■Middlelnitial' ); 

Title     :=  getSmallField(  'Title' ); 

Degree  :=  getSmallField(  Degree' ); 

School  :=  getSmallField(  'School' ); 

GradYear     :=  getSmallField(  'GradYear1 ); 

PhoneAreaCode    :=  getSmallField(  "PhoneAreaCode'  ); 

PhoneLocalNumber  :=  getSmallField(  ThoneLocalNumber'  ); 

Email  :=  getSmallField(  'Email'  ); 

HomePage  :=  getSmallField(  'HomePage' ); 
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theAreas  :=  TStringList.  create; 

theAreas.  clear; 

getTextArea(  "ResearchAreas1,  theAreas  ); 

theDescription  :=  TStringList. create; 

theDescription.  clear; 

getTextArea(  'ResearchDescription',  theDescription  ); 

theRelevance  :=  TStringList.create; 

theRelevance.  clear; 

getTextArea(  rRelevancetoDOD/DON',  theRelevance  ); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  'Add  Research  Page  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

with  Tablel  do     (puts  cursor  on  correct  record  in  Research  Page  table} 
begin 

open; 

SetKey; 

FieldByName(TacultyCode').AsString  :=  FacultyCode; 

GotoKey; 
end; 

if  (Table  l.GoToKey  =  True)  or  (FacultyCode  =  CGINotFound)  then 

{User  already  has  a  research  page} 
begin 
send('<centerxhl>You  Already  Hava  a  Research  Page</hl>'); 
sendHR; 

send('<p>'); 

send('<FORM  method=post  action='"+ 
'http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE=•"+FacultyCode+m>,); 

send('<input  type=" submit"  value=" Cancel,  Return  to  Catalog  Menu  ">'); 
send('</form>'); 
send(,</CENTER>'); 
end 

else 

{add  research  page} 
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begin 

Table  1 .  AppendRecord([FacultyCode,LastName,FirstName, 

MiddleInitial,Title,Degree,School,GradYear, 

PhoneAreaCode,PhoneLocalNumber,Eniail,HomePage]); 
Table  1.  close; 

Table2.open; 

Table2 .  AppendRecord([FacultyCode,theAreas,theDescription, 

theRelevance]); 
Table2.  close; 

send('<centerXhl>Your  Research  Page  was  successfully  entered  !</hl>'); 
sendHR; 

send('<P>'); 

send('<FORM  method=post  action- "+ 

'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe">'); 
sendC<INPUT  TYPE=HHIDDEN,,  NAME="FacultyCode"  VALUE=,,,+FacultyCode+,">,); 
send('<input  type=" submit"  value="Catalog  Menu  ">'); 
send('</form>'); 
send(,</CENTER>'); 
end; 

send(  ^/BODYx/HTM^' ); 

closeStdout; 

closeApp(application); 
end; 
end; 

end. 
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3.    Modify  ITM  Faculty  Research  Page 

{Displays  Text  in  Research  Page  to  be  Modified} 

unit  Mpgshow; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgidb,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

CGIDB  1:  TCGIDB; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 
{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.onException  :=  cgiErrorHandler; 
application.processMessages; 
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createStdout; 
sendPrologue; 

FacultyCode  :=  getSmallField(TacultyCode'); 

send(  ,<HTMLXHEAD>, ); 

sendTitle(  Modify  Research  Page' ); 

send(  ,</HEADxBODYBGCOLOR="ADEAEA">' ); 


{Modification  form} 
with  Table  1  do    {Search  Research  Page  Table  for  record  to  be  modified} 
begin 
open; 

FindKey([FacultyCode]); 
end; 

send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/mod_pge.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE-"'+FacultyCode+",>'); 

send('<TABLE  BORDER=5  CELLPADDrM^^); 

send('<TRxTD>Research  Areas:</TD>'); 

send('<TDxtextarea  rows=3  cols=50  name-"ResearchAreas">'); 
CGIDB 1 .  SendMemo(Tablel  .FieldByNameCResearchAreas')); 
send('</textarea>*); 

send(,<TRxTD>ResearchDescription:</TD>'); 

send('<TDxtextarea  rows=10  cols=50  name^'ResearchDescription"^); 
CGIDB  1  .SendMemo(Tablel  .FieldByNameCResearchDescription1)); 
send(,</textarea>1); 

send('<TRxTD>DOD/DON  Relevance:</TD>'); 

send('<TDxtextarea  rows=5  cols=50  name-"RelevancetoDOD/DON">'); 
CGIDB  1 .  SendMemo(Tablel  .FieldByNameCRelevancetoDOD/DON*)); 
send('</textarea>'); 

send('</TABLE> '); 

send('<P>'); 

send('<input  type=" submit"  value=  "Submit  Change">  '); 
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send('<input  type="reset"  value="Reset  Fields  ">'); 

send('</form>  *); 

sendHR; 

send('<p>'); 

send('<FORM  METHOD=POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-wir^faculty/catalog.exe">'); 

send('<INPUT  TYPE=nHEDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+m>,); 

send('<input  type="submit"  value="Cancel,Return  to  Catalog  Menu">'); 

send('</form>'); 

send(,</CENTER>,); 

Table  1.  close; 

send(  '</BODYx/HTML>' ); 
closeStdout; 
closeApp(application); 
end 
end; 

end. 

{Accepts  Text  Changes  to  Research  Page} 

unitMod_pgel; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TFonnl  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 
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var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

FacultyCode  :  string; 

AreaBrief        :  TStringList; 

DescriptionBrief :  TStringList; 

RelevanceBrief   :  TStringList; 
begin 

with  CGIEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application. onException  :=  cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

FacultyCode  :=  getSmallField(  TacultyCode' ); 

AreaBrief  :=  TStringList.create; 

AreaBrief.  clear; 

getTextArea(  rResearchAreas',  AreaBrief); 

DescriptionBrief"  TStringList.create; 

DescriptionBrief.  clear; 

getTextArea(  'ResearchDescriptiori,  DescriptionBrief); 

RelevanceBrief:=  TStringList.create; 

RelevanceBrief.  clear; 

getTextArea(  •RelevancetoDOD/DON',  RelevanceBrief); 

send(  ^HTMLxHEAD^  ); 

sendTitle(  'Modify  Research  Page ' ); 

send(  '</HEAD><BODY  BGCOLOR=,,ADEAEA">' ); 

send('<centerXhl>Modify  Research  Page</hl>'); 
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{Modify  Research  Page} 
with  Table  1  do 
begin 
open; 

FindKey([FacultyCode]); 
delete; 

AppendRecord([FacultyCode,AreaBrief,DescriptionBrief,RelevanceBrief]); 
close; 
end; 

send('<h2>The  research  page  has  been  modified.</h2>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

send(*<FORM  METHOD=POST  ACTION='); 

send('"http://13 1 .  120  J^S/cgi-win/faculty/catalog.exe"^); 

send('<INPUT  TYPE="fflDDElSr  NAME="FacultyCode"  VALUE=,,,+FacultyCode+",>'); 

send('<input  type="submit"  value="Catalog  Menu">'); 

send('</formx/center>'); 

send(  ,</BODYx/HTML>' ); 

closeStdout; 

closeApp(application); 
end; 
end; 

end. 
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4.    Add  Publications 

unit  Pubrrbl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
FacultyCode :  String; 

begin 

with  CGIEnvDatal  do 
begin 
{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 
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sendPrologue; 

FacultyCode     :=getSmallField(TacultyCode'); 

{standard  header  information} 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  'Choose  To  Add  New  or  Existing  PUB  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

send  ('<H4>Select  a  publication  to  add  to  your  research  page,  faculty'); 

send('research  area,  or  both.  If  another  ITM  professor  co-authored  a'); 

send('publication  with  you  he  may  have  already  entered  it,  so  you  might'); 

send('want  to  check  the  list  of  existing  pubs  first.  If  you  are  the  only1); 

send('author  and  know  you  did  not  enter  the  publication  select  "Add  New  Pub"</H4>'); 

send('<center>'); 

send('<TABLEBORDER=5  CELLPADDEW^^); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'nttp://13 1 .  120.39.65/cgi-win/faculty/sel_rrb.exe,'>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode^-•">,); 

send('<TR>'); 

send('<TDxSELECTNAME="PubTitle"  TYPE="text"  SIZE=1>'); 

with  Query  1  do 
begin 
close; 

SQL.  AddCSELECT  PubTitle'); 
SQL.Add(TROM  PUBS'); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  m+Fiel(ffiyName(*PubTitle').AsString+m:>'); 
send(FieldByName(TubTitle').AsString); 
next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 
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send("<TRxtd  ALIGN=,,CENTERHxinput  type="radio"  checked  name="PubCombo" '); 
send(Value="Pub2Pg">Add  to  Research  Page'); 

send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Add  to  Research  Area'); 
send('<input  type="radioH  name="PubCombo"  value="Pub2Both">Add  to  Both  </td>'); 

send('<TRxtd  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Add  Existing 
Pub"x/td>'); 

send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/selJ^ub.exe,,>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=,M+FacultyCode+,">'); 
send('<TRxtd  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Add  New 
Pub"x/td>'); 

send('</FORM>'); 

sendC<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe,,>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=H,+FacultyCode+,M>'); 
send('<TRxtd  ALIGN=MCENTER"xlNPUT  TYPE=SUBMIT  VALUE="Cancel,  Return  to 
Catalog  Menu"x/td>'); 
send('</FORM>'); 

send('</Table>'); 

send('</BODYx/HTML>'); 

closeStdout; 
closeAPP(application); 
end; 
end; 

end. 

{If  Adding  New  Pub  to  Page  and/or  Areas} 

unit  Sel_publ; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi; 
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type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 
var 
FacultyCode      :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

FacultyCode  :=  getSmallField(TacultyCode'); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  Determine  Publication  Type' ); 

send(  '</HEADxBODY  BGCOLOR=" ADEAEA">'  ); 

send  ('<centerXHl>Choose  The  Publication  Type</Hlx/center>'); 

send('<P>'); 

send('<h2>Please  click  below  the  type  of  publication  you  want  to  '); 

send('enter'); 
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send('<P>'); 

send('<Center>'); 

send('<FORM  method=post  action='"+ 

'http://13 1.  nO.S^S/cgi-win/faculty/pubtype.exe"^); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode"  VALUE=m+FacultyCod&f  ">'); 

send('<TABLEBORDER=5  CELLPADDING=5>,); 

send('<TRxtdxinput  type="radio"  checked  name="PubType" '); 

send(,value="Journal">Joumal'); 

send('<input  type="radio"  name="PubType"  value="Book">Book'); 

send('<input  type="radio"  name="PubType"  value^Other'^Other^/td^); 

send('</TABLE> '); 

send('<input  type="submit"  value="Send  Reply">'); 
send('</form>*); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<FORM  method=post  action=m+ 

'http://13 1 .  120  JQ^S/cgi-win/faculty/catalog.exe":^); 
send('<INPUT  TYPE="HIDDENM  NAME="FacultyCode"  VALUE=','+FacultyCode+,">'); 
send('<input  type=" submit"  value="Cancel,  Return  to  Catalog  Menu">'); 
send('</form>'); 
send('</CENTER>'); 

sendC</BODYx/HTML>' ); 
closeStdout; 
closeApp(  application  ); 
end; 
end; 

end. 

(If  Pub  is  a  Journal} 

unit  Add Jrnl; 

interface 
uses 
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SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

DataSource2:  TDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

($R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 

FacultyCode  :  string; 

PubTitle  :  string; 

theAuthor  :TStringList; 

JournalName  :  string; 

Volume  :  string; 

Number  :  string; 

PubMonth  :  string; 

Pub  Year  :  string; 

Pages  :  string; 

Note  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSiteENIFilename  :=  paramstr(l); 


87 


application. onException  :=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 
FacultyCode     :=  getSmaHField(TacultyCode'); 
PubTitle        :=  getSmallField(  "PubTitle' ); 

theAuthor  :=  TStringList. create; 
theAuthor.  clear; 
getTextArea(  'Author',  theAuthor  ); 

JournalName  :=  getSmalIField(  'JournalName'  ); 

Volume  :=  getSmallField(  'Volume' ); 

Number  :=  getSmallField(  TSTumber1 ); 

PubMonth  :=  getSmallField(  PubMonth'  ); 

Pub  Year  :=  getSmallField(  Tub  Year' ); 

Pages  :=  getSmallField(  Pages' ); 

Note  :=  getSmallField(  TSTote* ); 


send(  '<HTMLXHEAD>' ); 

sendTitle(  'Add  Research  Page  Menu' ); 

send(  '</HEADXBODY  BGCOLOR="ADEAEA">' ); 

with  Tablel  do     {puts  cursor  on  correct  record  in  Pub  table} 
begin 

open; 

SetKey; 

FieldByNameCPubTitle').AsString  :=  PubTitle; 

GotoKey; 
end; 

if  (Table  LGoToKey  =  True)  then 
{Pub  already  exist} 
begin 
send('<Centerxhl>Publication  Already  Exist  In  Database</hl>'); 
sendHR; 
send('<P>'); 

send('<FORM  method=post  action= '); 
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send("'http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE=M,+FacultyCode+m>'); 

send('<input  type="submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 

send('</form>  *); 

send('</CENTER>'); 
end 
else 

{add  research  page} 
begin 

Table  1.  open; 

Table  1 .  AppendRecord([PubTitle,theAuthor,PubMonth,Pub  Year,Note]); 

Table  1.  close; 

Table2.open; 

Table2.AppendRecord([PubTitle,JoumalName,Volume,Number,Pages]); 
Table2.  close; 

send  ('<H2>Choose  whether  you  want  to  add  your  publication  to  a'); 
send('  faculty  research  page,  faculty  research  area,  or  both</H2>'); 

send('<center>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

sendC"http://13 1.  ^O.SQ.eS/cgi-win/faculty/seLrrb.exe"^); 

sendC<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE=m+PubTitle+,">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=,M+FacultyCode+m>'); 

send('<TABLE  BORDER=5  CELLPADDING=5>,); 

send('<TRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" '); 
send(Value="Pub2Pg">Add  to  Research  Page'); 

send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Add  to  Research  Area'); 
send('<input  type="radio"  name="PubCombo"  value="Pub2Both">Add  to  Both  </td>'); 

send('</TABLE>'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Submit  Selection">'); 
send('</FORM>'); 
send('</center>'); 
end; 

send(  ^/BODYx/HTML^' ); 
closeStdout; 
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closeApp(application); 
end; 
end; 

end. 

{IfPubisaBook} 

unit  Add_bkl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TFonn) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

DataSource2:  TDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 

theAuthor  :TStringList; 

PubTitle  :  string; 

Publisher  :  string; 

PubMonth  :  string; 

Pub  Year  :  string; 
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Volume 

:  string; 

Series 

:  string; 

Edition 

:  string; 

Note 

:  string; 

FacultyCode 

:string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSiteENDDFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 
theAuthor  :=  TStringList.create; 
the  Author,  clear; 
getTextArea(  'Author1,  theAuthor  ); 

PubTitle  :=  getSmallField(  PubTitle* ); 

Publisher  :=  getSmallField(  'Publisher' ); 

PubMonth  :=  getSmallField(  PubMonth'  ); 

Pub  Year  :=  getSmallField(  Pub  Year* ); 

Volume  :=  getSmallField(  'Volume' ); 

Series  :=  getSmallField(  'Series' ); 

Edition  :=  getSmallField(  *Edition'  ); 

Note  :=  getSmalIField(  "Note* ); 
FacultyCode  :=  getSmallField(TacultyCode'); 


send(  '<HTMLXHEAD>' ); 

sendTitle(  'Add  Research  Page  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

with  Table  1  do     {puts  cursor  on  correct  record  in  Pub  table} 
begin 
open; 
SetKey; 
FieldByName(TubTitle').AsString  :=  PubTitle; 
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GotoKey; 
end; 

if  (Table  l.GoToKey  =  True)  then 

{Pub  already  exist} 
begin 
send('<CenterXhl  Publication  Already  Exist  In  Database</hl>'); 
sendHR; 
send('<P>'); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=m+FacultyCode+m>'); 

send('<input  type="  submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 

{add  research  page} 
begin 

Table  1.  open; 

Tablel.AppendRecord([PubTitle,theAuthor,PubMonth,PubYear,Note]); 
Table  1.  close; 

Table2.open; 

Table2.AppendRecord([PubTitle,Publisher,Volume,Series,Edition]); 
Table2.  close; 

send  ('<H2>Choose  whether  you  want  to  add  your  publication  to  a1); 
send('  faculty  research  page,  faculty  research  area,  or  both</H2>'); 

send('<center>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/sel_rrb.exe">,); 

send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE=,"+PubTitle+,">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+,">,); 

send('<TABLEBORDER=5  CELLPADDDSTC^S^); 

send('<TRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" '); 

send(Value="Pub2Pg">Add  to  Research  Page'); 

send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Add  to  Research  Area'); 
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send('<input  type="radio"  name="PubCombo"  value="Pub2Both">Add  to  Both  </td>'); 

send(<nABLE>y, 

send('<INPUT  TYPE=SUBMIT  VALUE=MSubmit  Selection">'); 
send('</FORM>'); 
send('</center>'); 
end; 

send(  ^/BODYx/HTNO* ); 

closeStdout; 

closeApp(application); 
end; 
end; 

end. 

{If  Pub  is  Other  Than  Journal  or  Book} 

unit  Add_othl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

DataSource2:  TDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 
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{$R  *.DFM} 

procedure  TForml.FormCreate 

var 

theAuthor 

:TStringList; 

PubTitle 

:  string; 

PubMonth 

:  string; 

PubYear 

:  string; 

theCitation 

:TStringList; 

FacultyCode 

:  string; 

begin 

with  CGffinvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 
theAuthor  :=  TStringList.  create; 
theAuthor.  clear; 
getTextArea(  'Author',  theAuthor  ); 

PubTitle  :=  getSmallField(  ■PubTitle' ); 
PubMonth  :=  getSmallField(  TubMonth'  ); 

PubYear  :=  getSmallField(  PubYear' ); 

FacultyCode  :=  getSmallField(TacultyCode'); 

theCitation  :=  TStringList. create; 

theCitation.  clear; 

getTextArea(  'Citation',  theCitation  ); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  'Add  Research  Page  Menu'  ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

with  Table  1  do     {puts  cursor  on  correct  record  in  Pub  table} 
begin 
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open; 
SetKey; 

FieldByNameCPubTitle'). AsString  :=  PubTitle; 
GotoKey; 
end; 

if  (Table  l.GoToKey  =  True)  then 
{Pub  already  exist} 
begin 
send('<Centerxhl>Publication  Already  Exist  In  Database</hl>'); 
sendHR; 
send('<P>'); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE=m+FacultyCode+■">,); 

send('<input  type=" submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 

{add  research  page} 
begin 

Table  1.  open; 

Table  1 .  AppendRecord([PubTitle,theAuthor,PubMonth,PubYear]); 

Table  1.  close; 

Table2.open; 

Table2.AppendRecord([PubTitle,theCitation]); 
Table2.  close; 

send  ('<H2>Choose  whether  you  want  to  add  your  publication  to  a'); 
send(*  faculty  research  page,  faculty  research  area,  or  both</H2>'); 

send('<center>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send(,"http://131.120.39.65/cgi-win/faculty/sel_rrb.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE=,"+PubTitle+,">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+,">'); 

send('<TABLE  BORDER=5  CELLPADDING=5>,); 
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send('<TRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" '); 
send('value="Pub2Pg">Add  to  Research  Page'); 

send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Add  to  Research  Area'); 
send('<input  type="radio"  name="PubCombo"  value="Pub2Both">Add  to  Both  </td>'); 

send^/TABLE^); 

send('<INPUT  TYPE=SUBMTT  VALUE=" Submit  Selection"^); 
send(,</FORM>'); 
send('</center>'); 
end; 

send(  '</BODYx/HTML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{IF  Pub  Exist  and  Adding  to  Page  and/or  Area} 

unit  Seljrbl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGffinvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Tablel:TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
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Forml:  TForml; 

implementation 

($R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 

PubTitle  :  string; 

PubCombo  :  string; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 
(required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application.onException  :=  cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

(receive  input  fields  from  HTML  form} 
FacultyCode  :=  getSmallField(  TacultyCode' ); 

PubTitle  :=  getSmallField(  'PubTitle' ); 

PubCombo  :=  getSmallFieldCPubCombo'); 

send(  *<HTM1XHEAD>' ); 
sendTitle(  'Add  Pub  Menu' ); 
send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

if  PubCombo  =Tub2Pg'  then 
begin 

with  Table  1  do     (puts  cursor  on  correct  record  in  Pub  table} 
begin 
open; 
SetKey; 

FieldByName('PubTitle').AsString  :=  PubTitle; 
FieldByName(TacultyCode'). AsString  :=  FacultyCode; 
GotoKey; 
end; 
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if  Table  LGoToKey  =  True  then 

{Pub  already  exist} 
begin 

send('<CenterXh2>Publication  Already  On  This  Research  Page</h2>'); 

sendHR; 

send('<P>'); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode" 
VALUE=,"+FacultyCode+'">'); 

send('<input  type="submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 

(add  research  page} 
begin 

(input  record  into  tables} 

Table  1.  open; 

Table  1 .  AppendRecord([PubTitle,FacultyCode]); 

Table  1.  close; 

send('<h2>Your  Publication  was  successfully  entered  on  research  page!</h2>'); 
sendHR; 

send('<P>'); 
send('<Center>'); 

send('<FORM  method=post  action= '); 
send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode" 
VALUE=,M+FacultyCode+,">,); 

send('<input  type=" submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end; 
end; 

if  PubCombo  =*Pub2Area'  then 
begin 
send('<center><H2>Add  Publication  to  Research  Area</h2>'); 
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send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 .  120.39.65/cgi-win/faculty/pub2area.exe,*>'); 

send('<INPUT  TYPE=,,HIDDEN,,  NAME="PubTitleH  VALUE=,"+PubTitle+'">'); 

send('<INPUT  TYPE=,,HIDDEN,,  NAME="FacultyCode"  VALUE=m+FacultyCode+,">'); 

send('<TABLEBORDER=5  CELLPADDINGNS^); 

send('<TR>'); 

send('<TD  ALIGN="CENTER,,xSELECTNAME="ResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 

with  Query  1  do 

begin 
close; 

SQL.Add('SELECT  ResearchAreaTitle '); 
SQL.  Add(TROM  RES_AREA '); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  m+FieldByName(,ResearchAreaTitle,).AsString+n,>,); 

send^ieldByNameCResearchAreaTitle^.AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send(,</SELECTx/TDx/TR>'); 

send('</TABLE>'); 

send(*<INPUT  TYPE=SUBMIT  VALUE=" Submit  Information^'); 

send('</FORM>'); 

sendHR; 

send(*<FORM  method=post  action- "+ 

'http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">,); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=,M+FacultyCode+"'>'); 
send('<input  type="submit"  value="Cancel,  Return  to  Catalog  Menu">'); 
send('</form>'); 
send('</CENTER>'); 
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end; 

if  PubCombo  =IPub2Both'  then 
begin 
send('<centerXH2>Add  Publication  to  Research  Page  and  Research  Area</h2>'); 

send('<FORM  METHOD  =  POST  ACTION=  '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/pub2both.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE='"+PubTitle+'">'); 

send('<INPUT  TYPE="FflDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+'''>'); 

send('<TABLEB0RDER=5  CELLPADDING=5>'); 

send('<TR>'); 

send('<TD  ALIGN="CENTER"xSELECT  NAME="ResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 

with  Query  1  do 

begin 
close; 

SQL.Add('SELECT  ResearchAreaTitle '); 
SQL.  Add(TROM  RES_AREA '); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  ",+FieldByName(,ResearchAreaTitle,).AsString+,">'); 

send(FieldByNameCResearchAreaTitle').AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send(,</SELECT></TDx/TR>'); 

send('</TABLE>'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Submit  Information'^'); 

send('</FORM>'); 

sendHR: 
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(If  user  cancels,  Catalog  Menu} 
send('<FORM  method=post  action- ); 
send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe,,>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=m+FacultyCode+m>'); 
send('<input  type="submit"  value=" Cancel,  Return  to  Catalog  Menu  ">'); 
send(,</form>'); 
send('</CENTER>'); 

end; 
send(  ,</BODYx/HTML>, ); 

closeStdout; 

closeApp(application); 
end; 
end; 

end. 

{Adding  Pub  to  a  Research  Area(s)  Only} 

unit  Pub_area; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Table  l:TTable; 

DataSource2:  TDataSource; 

Table2:  TTable; 

DataSource3:  TDataSource; 

Query  1:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 
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var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 

ResearchAreaTitle     :  string; 

PubTitle  :  string; 

SubAreasExist         :  string; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 
ResearchAreaTitle    :=  getSmallField(  lResearchAreaTitle' ); 
PubTitle  :=  getSmallField(  *PubTitle' ); 

FacultyCode  :=  getSmallField(TacultyCode'); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  'Add  Pub  to  Research  Area  Menu' ); 

send(  '</HEADxBODYBGCOLOR="ADEAEA">' ); 


with  Tablel  do    {Search  Research  Area  Table  for  record  to  be  modified} 
begin 
open; 

FindKey([ResearchAreaTitle]); 
end; 

SubAreasExist  :=  Tablel. FieldByName('SubAreas').AsString; 
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If  SubAreasExist  =  'Yes*  then 
begin 

send('<h3>The  research  area  you  selected  to  add  the  publication  to  has  research'); 

send('subareas.  Select  one  of  subareas  to  add  the  publication.</h3>'); 

send('<P>'); 

send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDING=5>,); 

send('<FORM  METHOD  =  POST  ACTION= '); 
send("'http://13 1 .  120.39.65/cgi-win/faculty/pub2sub.exe">,); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=m+FacultyCode+,,,>,); 
send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE='"+PubTitle+",>'); 
send('<TR>'); 

send(*<TDxSELECTNAME="ResearchSubAreaTitle"  TYPE="text"  SIZE=1>'); 

with  Query  1  do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 
SQL.Add(TROM  RESJSUBA'); 

SQL.Add('WHERE  RES_SUBA.ResearchAreaTitle  =  "'  +  ResearchAreaTitle  +  ""); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  ,,,+FieldByName(,ResearchSubAreaTitle,).  AsSt^ing+,,,>,); 

send(FieldByNameCResearchSubAreaTitle').AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send(,</SELECTx/TDx/TR>'); 

send('</TABLE>'); 

send('<INPUT  TYPE=SUBMIT  VALUE="  Submit  Information'^'); 

send('</FORM>'); 

send('<P>'); 

sendHR; 

send('<center>'); 

send(*<FORM  METHOD  =  POST  ACTION=  '); 
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send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe,,>,); 

send('<INPUT  TYPE="fflDDEN"  NAME="FacultyCode"  VALUE=m+FacultyCode+,">,); 
send(*<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE=" Cancel,  Return  to 
Catalog  Menu"x/TDx/FORM>'); 

send^/TRx/TABLEx/CENTER^); 
end  {end  subareas  =  yes} 
else  {else  no  subarea} 
begin 

with  Table2  do     {puts  cursor  on  correct  record  in  PUBAREA  table} 
begin 
open; 
SetKey; 

FieldByName('PubTitle,).AsString  :=  PubTitle; 
FieldByNameCResearchAreaTitle').AsString  :=  ResearchAreaTitle; 
GotoKey; 
end; 

if  Table2.GoToKey  =  True  then 

{User  already  has  pub  in  this  research  area} 
begin 

send('<h3>You  already  have  that  publication  in  this  Research  Area.</h3>'); 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">  '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+",>'); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 
begin  {add  pub  to  research  area} 

{input  record  into  Research  Area  table} 

Table2 .  AppendRecord([PubTitle,ResearchAreaTitle]); 

Table2. close; 

send('<centerxh2>Your  Publication  was  successfully'); 

send('added  to  the  research  area!</h2>'); 

sendHR; 

send('<P>'); 
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send('<center> '); 

send('<FORM  method=post  action= '); 
send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCodeM  VALUE=,,,+FacultyCode+,">'); 
send('<input  type=" submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end; 

end;  {end  else  of  no  subareas  exist} 

send(  ,</BODYx/HTML>' ); 

closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{If  a  Pub  is  Going  to  a  Subarea  of  an  Area} 

unitPub2subl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 


105 


implementation 

{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 

var 

ResearchSubAreaTitle  :  string; 

PubTitle  :  string; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 

ResearchSubAreaTitle    :=  getSmallField(  *ResearchSubAreaTitle* ); 

PubTitle  :=  getSmallField(  "PubTitle* ); 

FacultyCode  :=  getSmallField(Tacultycode'); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  'Add  Pub  to  Research  Area  Menu' ); 

send(  '</HEADxBODY  BGCOLOR=,,ADEAEA">, ); 

with  Tablel  do     {puts  cursor  on  correct  record  in  Research  Page  table} 
begin 

open; 

SetKey; 

FieldByName('ResearchSubAreaTitle'). AsString  :=  ResearchSubAreaTitle; 

FieldByName(TubTitle').AsString  :=  PubTitle; 

GotoKey; 
end; 

if  (Table  LGoToKey  =  True)  then 

{User  already  has  pub  linked  to  research  page} 
begin 
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send('<centerxh2>You  already  have  that  publication1); 

send('in  this  research  subarea</h2>'); 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=,,,+FacultyCode+"'>,); 

send('<input  type="submit"  value=  "Cancel,  Return  to  Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 

(add  research  page} 
begin 

{input  record  into  Research  Area  table} 

Tablel.AppendRecord([PubTitle,ResearchSubAreaTitle]); 

Table  1.  close; 

send('<centerxh2>Your  Publication  was  successfully'); 
send('added  to  the  selected  research  subarea!</h2>'); 
sendHR; 

send('<P>'); 
send('<center> '); 

send('<FORM  method=post  action= '); 
send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">  '); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode"  VALUE=",+FacultyCode+,">'); 
send('<input  type=" submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send(,</CENTER>'); 
end; 
send(  ^/BODYx/HTM^' ); 

closeStdout; 
closeApp(application); 
end; 
end; 

end. 
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{Adding  Pub  to  Both  Research  Page  and  Area(s)} 

unit  Pub2bot; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

DataSource2:  TDataSource; 

Table2:  TTable; 

DataSource3:  TDataSource; 

Table3:  TTable; 

DataSource4:  TDataSource; 

Query  1:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 

PubTitle  :  string; 

FacultyCode  :  string; 

ResearchAreaTitle     :  string; 

SubAreasExist         :  string; 

begin 
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with  CGffinvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

(receive  input  fields  from  HTML  form} 
PubTitle  :=  getSmallField(  TubTitle' ); 

FacultyCode  :=  getSmallField(  TacultyCode' ); 

ResearchAreaTitle    :=  getSmallField(  ■ResearchAreaTitle' ); 

send(  ,<HTMLxHEAD>, ); 

sendTitle(  'Add  Pub  to  Research  Area  Menu'  ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">, ); 

with  Table  1  do    { Search  Research  Area  Table  for  record  to  be  modified} 
begin 
open; 

FindKey([ResearchAreaTitle]); 
end; 

SubAreasExist  :=  Tablel.FieldByName('SubAreas').AsString; 

If  SubAreasExist  =  'Yes'  then 
begin 

send('<h3>The  research  area  you  selected  to  add  the  publication  to  has  research'); 

send('subareas.  Choose  one  to  add  the  publication. </H3>'); 

send('<P>'); 

send('<CENTER> '); 

send('<center>'); 

send('<TABLEBORDER=5  CELLPADDDtt^S^); 

send('<FORM  METHOD  =  POST  ACTION=  '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/pub2_all.exe">,); 
send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle'"  + 

,VALUE="*+PubTitle+,">'); 
send('<INPUT  TYPE="HTODEN"  NAME="FacultyCode'"  + 

'VALUE="'+FacultyCode+'">'); 
send('<TR>'); 
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send(,<TDxSELECTNAME="ResearchSubAreaTitle"  TYPE="text"  SIZE=1>'); 

with  Query  1  do 
begin 
close; 

SQL.Add(,SELECTRES_SUBA.Resea^chSubA^eaTitle,); 
SQL.  Add(TROM  RES_SUBA); 

SQL.AddCWHERE  RES_SUBA.ResearchAreaTitle  =  '"  +  ResearchAreaTitle  +  ""); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  ",+FieldByName(,ResearchSubAreaTitle,).AsSt^ing+,,,>,); 

send(FieldByName(ResearchSubAreaTitle').AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('</TABLE>'); 

send('<INPUT  TYPE=SUBMU  VALUE="Submit  Information"^); 

send('</FORM>'); 

sendC<P>'); 


send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe,,>,); 

send('<INPUT  TYPE=,,HIDDEN,,  NAME="FacultyCode"  VALUE=,M+FacultyCode+m>'); 
send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMTT  VALUE=" Cancel,  Return  to 
Catalog  MemTx/TDx/FORM^); 

send('</TRx/TABLEx/CENTER>'); 
end  {end  subareas  =  yes} 
else  {else  no  subarea} 
begin 

with  Table2  do     {puts  cursor  on  correct  record  in  PagePUB  table} 
begin 
open; 
SetKey; 

FieldByNameCPubTitle^.AsString  :=  PubTitle; 
FieldByName(TacultyCode').AsString  :=  FacultyCode; 
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GotoKey; 
end; 

with  Table3  do     {puts  cursor  on  correct  record  in  PUB  AREA  table} 
begin 

open; 

SetKey; 

FieldByName(THibTitle').AsString  :=  PubTitle; 

FieldByNameCResearchAreaTitle').AsString  :=  ResearchAreaTitle; 

GotoKey; 
end; 


if  (Table2.GoToKey  =  True)  and  (Table3.GoToKey  =  False)  then 

(User  already  has  pub  linked  to  research  page} 
begin 

send('<centerXh2>You  already  have  that  publication1); 
send('on  selected  research  page.  Publication  just  added  to1); 
send('selected  research  area.</h2>'); 

Table3 .  AppendRecord([PubTitle,ResearchAreaTitle]); 
Table3.  close; 

sendHR; 
send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+,">'); 

send('<input  type=M  submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 

if  (Table2.GoToKey  =  False)  and  (Table3.GoToKey  =  True)  then 

{User  already  has  pub  linked  to  research  area} 
begin 
send('<centerxh2>You  already  have  that  publication'); 
send('in  selected  research  area.  Publication  just  added  to'); 
send(' selected  research  page.</h2>'); 

Table2.AppendRecord([PubTitle,FacultyCode]); 
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Table2.  close; 

sendHR; 
send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send("*http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE=MHIDDEN,,  NAME="FacultyCode"  VALUE=m+FacultyCode+m>'); 

send('<input  type=" submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 
if  (Table2.GoToKey  =  True)  and  (Table3.GoToKey  =  True)  then 

{User  already  has  pub  linked  to  both  tables} 
begin 

send('<centerXh2>You  already  have  that  publication'); 
send('on  selected  research  page  and  research  area.</h2>'); 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send("'http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE=",+FacultyCode+,">,); 

send('<input  type=" submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 
begin 

{add  research  page  and  research  area} 

Table2.AppendRecord([PubTitle,FacultyCode]); 
Table2.  close; 

Table3 .  AppendRecord([PubTitle,ResearchAreaTitle]); 
Table3.  close; 

send('<centerXh2>Your  Publication  was  successfully'); 
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send('added  to  the  selected  research  area  and  page!</h2>'); 

sendHR; 
send(*<P>'); 
send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE=,,HIDDEN,,  NAME="FacultyCode"  VALUE=m+FacultyCode+,">,); 

send('<input  type=" submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end; 
end; 
send(  '</BODYx/HTML>' ); 

closeStdout; 

closeApp(application); 
end; 
end; 
end. 

{If  Pub  is  also  going  to  a  Subarea  of  a  Research  Area} 

unit  Pub2all; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:  TTable; 

DataSource2:  TDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
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end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml  .FormCreate(Sender:  TObject); 

var 

ResearchSubAreaTitle :  string; 

PubTitle  :  string; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 

webSiteENIFilename  :=  paramstr(l); 

application. onException  :=  cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 

ResearchSubAreaTitle    :=  getSmallField(  •ResearchSubAreaTitle1 ); 

PubTitle  :=  getSmallField(  "PubTitle' ); 

FacultyCode  :=  getSmallField(  Tacultycode' ); 

send(  '<HTML><HEAD>'  ); 

sendTitle(  'Add  Pub  to  Research  Area  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

with  Tablel  do     {puts  cursor  on  correct  record  in  PUBSAREA  table} 
begin 

open; 

SetKey; 

FieldByName('ResearchSubAreaTitle').AsString  :=  ResearchSubAreaTitle; 

FielaByName(TubTitle*).AsString  :=  PubTitle; 

GotoKey; 
end; 
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with  Table2  do     {puts  cursor  on  correct  record  in  PAGEPUB  table} 
begin 

open; 

SetKey; 

FieldByName(TacultyCode').AsString  :=  FacultyCode; 

FieldByName(TubTitle').AsString  :=  PubTitle; 

GotoKey; 
end; 

if  (Table  l.GoToKey  =  True)  and  (Table2.GoToKey  =  False)  then 

{User  already  has  pub  linked  to  research  page} 
begin 

send('<centerXh2>You  already  have  that  publication'); 
send('on  selected  research  subarea.  Publication  just  added  to'); 
send('selected  research  page.</h2>'); 

Table2.AppendRecord([PubTitle,FacultyCode]); 
Table2.  close; 
sendHR; 
send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=,"+FacultyCode+,">'); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 

if  (Table  l.GoToKey  =  False)  and  (Table2.GoToKey  =  True)  then 

{User  already  has  pub  linked  to  research  area} 
begin 
send('<centerXh2>You  already  have  that  publication'); 
send('in  selected  research  page.  Publication  just  added  to'); 
send('selected  research  subarea. </h2>'); 

Tablel.AppendRecord([PubTitle,ResearchSubAreaTitle]); 
Table  1.  close; 
sendHR; 
send('<P>'); 

send('<center> '); 
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send('<FORM  method=post  action= '); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCodeH  VALUE=",+FacultyCode+,">,); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

sendC</CENTER>'); 
end 
else 
if  (Table LGoToKey  =  True)  and  (Table2.GoToKey  =  True)  then 

{User  already  has  pub  linked  to  both  tables} 
begin 

send('<centerXh2>You  already  have  that  publication1); 
send('on  selected  research  page  and  research  subarea.</h2>,); 

sendHR; 
send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send(*"http://13 1. 120.39.65/cgi-win/faculty/catalog.exeM> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE="'+FacultyCode+,">'); 

send('<input  type=" submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

sendC^CENTER^); 
end 
else 
begin 

{add  to  research  page  and  research  subarea) 

Table  1 .  AppendRecord([PubTitle,ResearchSubAreaTitle]); 
Table  1.  close; 

Table2 .  AppendRecord([PubTitle,FacultyCode]); 
Table2. close; 

send('<centerxh2>Your  Publication  was  successfully'); 

send('added  to  the  selected  research  subarea  and  page!</h2>'); 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1 .120 .39.65/cgi-win/faculty/catalog.exe"> '); 
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send('<INPUT  TYPE="fflDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+"'>'); 
send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end; 

send(  '</BODYx/HTML>' ); 

closeStdout; 
closeApp(application); 
end; 
end; 

end. 


117 


5.  Delete  Publications 

unit  Dpubrrb; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

($R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 
Facultycode     :  string; 

begin 

with  CGIEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 
webSitelMFilename  :=  paramstr(l); 
application.  onException  :=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 
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sendPrologue; 

FacultyCode    :=  getSmallFieldCFacultycode'); 

{standard  header  information} 

send(  ,<HTMLXHEAD>* ); 

sendTitle(  "List  PubTitles  and  Combination  Menu'  ); 

send(  ,</HEADXBODYBGCOLOR="ADEAEA,,>' ); 

send  ('<H3>Choose  the  pubhcation  you  want  to  delete  from  your1); 

send('  research  page,  faculty  research  area,  or  both.</H3>'); 

send('<center>'); 

send('<TABLEBORDER=5  CELLPADDINC^^); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1 .120 ^^S/cgi-win/faciuty/deljTb.exe"^); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode"  VALUE=,"+FacultyCode+m>'); 

send('<TR>'); 

send('<TDxSELECTNAME="PubTitle"  TYPE="text"  SIZE=1>'); 

with  Query  1  do 
begin 
close; 

SQL.Add('SELECT  PubTitle'); 
SQL.Add(TROM  PUBS'); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  m+FieldByName(,PubTitle,).AsString+m>,); 

send(FieldByNameCPubTitle').AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('<TRxtd  ALIGN="CENTER"xinput  type="radio"  checked  name="PubCombo" "); 
send('value="Pub2Pg">Delete  From  Page'); 
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send('<input  type="radio"  name="PubCombo"  value="Pub2Area">Delete  From  Area'); 
send('<input  type="radio"  name="PubCombo"  value="Pub2Both">Delete  From  Both 
</td>'); 

send('<TRxtd  ALIGN="CENTER"xlNPUT  TYPE=SUBMTT  VALUE="  Submit 
Information"x/td>'); 
send('</FORM>'); 

send('<FORM  method=post  action='"+ 
'http://13 1 .  ^O.SQ^S/cgi-win/faculty/catalog.exe"^); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=,M+FacultyCode+m>'); 
send('<TRxtd  ALIGN=MCENTER"xinput  type="submit"  value="Cancel,  Return  to  Catalog 
Mem^x/td^); 
send('</form>'); 
send('</table>'); 

send('</BODYx/HTML>'); 

closeStdout; 
closeAPP(application); 
end; 
end; 

end. 

{Determines  From  Where  Pub  Is  Being  Deleted} 

unitDelrrbl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 
CGIEnvDatal:  TCGIEnvData; 
DataSourcel:  TDataSource; 
DataSource3:  TDataSource; 
Query  1:  TQuery; 
Query2:  TQuery; 
DataSource2:  TDataSource; 
Tablel:  TTable; 
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procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

($R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 

PubTitle  :  string; 

PubCombo  :  string; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

(required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application. onException  :=  cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

(receive  input  fields  from  HTML  form} 
PubTitle  :=  getSmallField(  "PubTitle' ); 

PubCombo  :=  getSmallFieldCPubCombo'); 

Facultycode  :=  getSmallField(TacultyCode'); 

send(  ,<HTMLxHEAD>' ); 
sendTitle(  'Add  Pub  Menu' ); 
send(  '</HEADxBODYBGCOLOR="ADEAEA">' ); 

if  PubCombo  ='Pub2Pg'  then 
begin 
with  Table  1  do     (puts  cursor  on  correct  record  in  PAGEPub  table} 
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begin 

open; 

SetKey; 

FieldByNameCPubTitleOAsString  :=  PubTitle; 

FieldByName(TacultyCode').AsString  :=  FacultyCode; 

GotoKey; 
end; 

if  (Table  LGoToKey  =  True)  then 
begin       {Delete  pub  from  PagePub  table} 
with  Query  1  do 
begin 
close; 
SQL.clear; 

sql.add(T)ELETE  FROM  PAGEPUB '); 
sqladdCWHERE  (PubTitle  =  "'  +  PubTitle  + '") '); 
sql.add('AND  (FacultyCode  =  '"  +  FacultyCode  + '") '); 
ExecSQL; 
end; 
send('<H3>The  publication  has  been  deleted  from  research  page.</H3>'); 
end 
else 
begin 
send('<h3>The  pubhcation  does  not  exist  on  your  research  page.'); 
send('<BR>'); 

sendCVerify  your  selection  and  try  again.</h3>'); 
end; 

sendC<P>'); 

sendHR, 

send('<P>'), 

send('<center>'); 

sendC<FORM  method=post  action='"+ 
'http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT  TYPE^'HIDDEN"  NAME="FacultyCode"  VALUE=,,,+FacultyCode+,">,); 
send('<input  type="submit"  value=" Catalog  Menu  ">'); 
send('</form>'); 
send('</CENTER>'); 
end; 

if  PubCombo  ="Pub2Area'  then 
begin 
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send('<H3>Delete  Publication  From  A  Research  Area</h3>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 .  120.39.65/cgi-win/faculty/dpuba^ea.exe,,>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE=m+PubTitle+m>,); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode"  VALUE=,"+FacultyCode+,">,); 

send('<TABLEBORDER=5  CELLPADDING=5>,); 

send('<TR>'); 

send('<TD  ALIGN=,,CENTER"xSELECTNAME="ResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 

with  Query2  do 
begin 
close; 

SQL.Add('SELECT  ResearchAreaTitle '); 
SQL.  Add(TROM  RES_AREA '); 
open; 
first;  (puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  m+FieldByName(,ResearchAreaTitle,).  AsString+n,>'); 

send(FieldByNameCResearchAreaTitle').AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send(,</SELECTx/TDx/TR>'); 

send('<TRxTD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Submit 
Information"x/TR>'); 
send('</FORM>'); 

send('<FORM  method=post  action='"+ 

'http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe,,>,); 
send('<INPUT  TYPE=HHIDDEN"  NAME="FacultyCode"  VALUE=,,,+FacultyCode+,">,); 
send('<TRxTD  ALIGN="CENTER"xinput  type=" submit"  value="Cancel,  Return  to 
Catalog  Menu  "x/TR>'); 
send('</form>'); 
send('</table>'); 
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end; 

if  PubCombo  =lPub2Both'  then 
begin 
send('<H3>Delete  Publication  From  A  Research  Area  And  Page</h3>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/dpubboth.exe">,); 

send('<INPUT  TYPE^'HIDDEN"  NAME="PubTitle"  VALUE=,M+PubTitle+,">'); 

send('<INPUT  TYPE=,,HIDDEN,,  NAME="FacultyCode"  VALUE=m+FacultyCode+,">,); 

send('<TABLE  BORDER=5  CELLPADDING=5>'); 

send('<TR>'); 

send('<TD  ALIGN=,,CENTER,,xSELECTNAME=HResearchAreaTitle"  TYPE="text" 
SIZE=1>'); 

with  Query2  do 
begin 
close; 

SQL.Add('SELECT  ResearchAreaTitle '); 
SQL.  Add(TROM  RES_AREA '); 
open; 
first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  ,H+FieldByName(,ResearchAreaTitle,).  AsString+M,>'); 

sendOFieldByNameCResearchAreaTitle^.AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('<TRxTD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Submit 
Information"x/TR>'); 
send('</FORM>'); 

send('<FORM  method=post  action='"+ 
'http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT  TYPE^'HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+,">'); 
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send('<TRxTD  ALIGN="CENTER"xinput  type="submit"  value=" Cancel,  Return  to 
Catalog  Menu  "x/TR>'); 
sendC</form>'); 
send('</table>'); 
end; 

send(  ,</BODYx/HTML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{If  Pub  Is  Being  Deleted  From  A  Research  Area} 

unit  Dpubare; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DBTables,  DB,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

DataSource2:  TDataSource; 

Query  1:  TQuery; 

DataSource3:  TDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 
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{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 

var 

ResearchAreaTitle     :  string; 

PubTitle  :  string; 

SubAreasExist         :  string; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.  processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 
ResearchAreaTitle    :=  getSmallField(  lResearchAreaTitle' ); 
PubTitle  :=  getSmallField(  PubTitle' ); 

FacultyCode  :=  getSmallField(Tacultycode'); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  Delete  Pub  From  Research  Area1 ); 

send(  ,</HEADxBODYBGCOLOR="ADEAEA,,>' ); 

with  Table  1  do    {Search  Research  Area  Table  for  record  to  be  modified} 
begin 

open; 

FindKey([ResearchAreaTitle]); 
end; 

SubAreasExist  :=  Tablel.FieldByName('SubAreas').AsString; 

If  SubAreasExist  =  'Yes'  then 
begin 

send('The  research  area  you  selected  to  delete  the  publication  from  has  research.'); 

send('subareas.  Choose  one  of  the  subareas  to  delete  the  publication.'); 
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send('<P>'); 
sendC<CENTER> '); 

send('<TABLEB0RDER=5  CELLPADDING=5>'); 

send('<FORM  METHOD  =  POST  ACTION=  '); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/dpub2sub.exe">,); 

send('<INPUT  TYPE=,,HIDDEN,,  NAME="FacultyCode"  VALUE=,,,+FacultyCode+",>,); 

send('<INPUT  TYPE="fflDDEN"  NAME="PubTitle"  VALUE=m+PubTitle+,">'); 

send('<TRxTD  ALIGN="CENTER"xSELECT  NAME="ResearchSubAreaTitle" 
TYPE="textM  SIZE=1>'); 

with  Query  1  do 
begin 
close; 

SQL.Add(,SELECTRES_SUBA.ResearchSubAreaTitle'); 
SQL.  Add(TROM  RES_SUBA); 

SQL.AddCWHERE  RES_SUBA.ResearchAreaTitle  =  "'  +  ResearchAreaTitle  +  ""); 
open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  n,+FieldByName(,Resea^chSubA^eaTitle,)  AsString+,">,); 

sendCFieldByNameCResearchSubAreaTitle^.AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send(,</SELECTx/TDx/TR>'); 

send('<TRxTD  ALIGN=''CENTER"xlNPUT  TYPE=SUBMIT  VALUE=" Submit 
Information"x/TD>'); 
send('</FORM>'); 

send('<FORM  method=post  action- "+ 

*http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">,); 
send('<INPUT  TYPE="HIDDENH  NAME="FacultyCode"  VALUE=m+FacultyCode+,,,>,); 
send('<TRxTD  ALIGN="CENTER"><input  type=" submit"  value="Cancel,  Return  to 
Catalog  Menu"x/TD>'); 
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send(,</form>'); 
send('</TABLE>'); 

end  {end  subareas  =  yes} 

else  (else  no  subarea} 

begin 
with  Table2  do     {puts  cursor  on  correct  record  in  PUBAREA  table} 
begin 
open; 
SetKey; 

FieldByName(TubTitle').AsString  :=  PubTitle; 
FieldByNameCResearchAreaTitle').AsString  :=  ResearchAreaTitle; 
GotoKey; 
end; 
if  (Table2.GoToKey  =  True)  then 
begin 
with  Query  1  do 
begin 
close; 
SQL.clear; 

sql.add(T>ELETE  FROM  PUBAREA'); 
sql.add('WHERE  (PubTitle  =  -  +  PubTitle  + »")  '); 
sql.addCAND  (ResearchAreaTitle  =  '"  +  ResearchAreaTitle  + '") '); 
ExecSQL; 
end; 

send('<centerXh2>Publication  deleted  from  selected  research  area</h2>'); 
end 
else 
begin 

send('<h3>Publication  does  not  exist  on  selected  research  area.'); 

send('<BR>'); 

send('Verify  your  selection  and  try  again.</h3>'); 
end; 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<center>'); 

send('<FORM  method=post  action= '); 
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send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe,,> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE="'+FacultyCodef' ">•); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 

end;  (end  else  of  no  subareas  exist} 

send(  ,</BODYx/HTML>, ); 
closeStdout; 
closeApp(application); 
end; 

end; 

end. 

{If  Pub  Is  Being  Deleted  From  A  Sub  Area} 
unit  Dpubsub; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Tablel:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{ Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 
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{$R  *.DFM} 

procedure  TForml.FormCreate(Sender:  TObject); 

var 

ResearchSubAreaTitle  :  string; 

PubTitle  :  string; 

FacultyCode  :  string; 

begin 

with  CGffinvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 
webSitelNIFilename  :=  paramstr(l); 
application. onException  :=  cgiErrorHandler; 
application.processMessages; 

createStdout; 
sendPrologue; 


{receive  input  fields  from  HTML  form} 

ResearchSubAreaTitle    :=  getSmallField(  "ResearchSubAreaTitle' ); 

PubTitle  :=  getSmallField(  PubTitle' ); 

Facultycode  :=  getSmallfield(TacultyCode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  Delete  Pub  From  Research  SubArea  Menu' ); 

send(  '</HEADXBODY  BGCOLOR="ADEAEA">' ); 

with  Table  1  do     {puts  cursor  on  correct  record  in  table} 
begin 
open; 
SetKey; 

FieldByNameCPubTitle').AsString  :=  PubTitle; 

FieldByNameCResearchSubAreaTitle').AsString  :=  ResearchSubAreaTitle; 
GotoKey; 
end; 
if  (Table  LGoToKey  =  True)  then 
begin 
with  Query  1  do 
begin 
close; 
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SQL.  clear; 

sql.add(T>ELETE  FROM  PUBSAREA'); 
sql.addCWHERE  (PubTitle  =  "'  +  PubTitle  + '") '); 
sql.add('AND  (ResearchSubAreaTitle  =  '"  +  ResearchSubAreaTitle  + "') '); 
ExecSQL; 
end; 

send('<centerXh3>Your  Publication  was  successfully); 
send('deleted  from  the  selected  research  subarea!</h3>'); 
end 
else 
begin 
send('<h3>Publication  does  not  exist  on  selected  research  subarea.'); 
send('<BR>'); 

send('Verify  your  selection  and  try  again</h3>'); 
end; 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=,"+FacultyCode+,M>'); 

send('<input  type=" submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 

send(  ^/BODYx/HTNO' ); 

closeStdout; 

closeApp(application); 
end; 
end; 

end. 

{IF  Pub  is  Being  Deleted  From  Both  Research  Page  And  Area} 

unitDpubbotl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 


131 


Forms,  Dialogs,  DBTables,  DB,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

DataSource2:  TDataSource; 

Query  1:  TQuery; 

DataSource3:  TDataSource; 

Query2:  TQuery; 

DataSource4:  TDataSource; 

DataSource5:  TDataSource; 

Table2:  TTable; 

Table3:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R*.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 

ResearchAreaTitle     :  string; 

PubTitle  :  string; 

SubAreasExist         :  string; 

FacultyCode  :  string; 

begin 
with  CGIEnvDatal  do 

begin 

{required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application.  onException  :=  cgiErrorHandler; 

application.processMessages; 
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createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 
ResearchAreaTitle    :=  getSmallField(  "ResearchAreaTitle* ); 
PubTitle  :=  getSmallField(  TubTitle' ); 

FacultyCode  :=  getSmallField(Tacultycode'); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  "Delete  Pub  From  Research  Area' ); 

send(  '</HEADxBODY  BGCOLOR=HADEAEAM>' ); 

with  Tablel  do    { Search  Research  Area  Table  for  record} 
begin 

open; 

FindKey([ResearchAreaTitle]); 
end; 

SubAreasExist  :=  Table LFieldByName('Sub Areas'). AsString; 

If  SubAreasExist  =  'Yes'  then 
begin 

send('The  research  area  you  selected  to  delete  the  publication  from  has  research.'); 

send('subareas.  Choose  one  of  the  subareas  to  delete  the  publication.'); 

send('<P>'); 
send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDINOS^); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send("'http://13 1 .  120.39.65/cgi-win/faculty/dboth_rr.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=",+FacultyCode+'">*); 

send('<INPUT  TYPE="HIDDEN"  NAME="PubTitle"  VALUE='"+PubTitle+'">'); 

send('<TRxTD  ALIGN="CENTER"xSELECT  NAME="ResearchSubAreaTitle" 
TYPE="text"  SIZE=1>'); 

with  Query  1  do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 
SQL.  Add(*FROM  RES_SUBA); 
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SQL.AddCWHERE  RES_SUBA.ResearchAreaTitle  =  "'  +  ResearchAreaTitle  + ""); 

open; 

first;  {puts  cursor  on  first  record  in  answer  table} 

while  not  EOF  do 
begin 

send('<OPTION  VALUE=  ",+FieldByName(UesearchSubAreaTitle').  AsString+,">'); 

send^ieldByNameCResearchSubAreaTitle^.AsString); 

next;  {puts  cursor  on  next  record} 
end; 
close; 
end; 

send(,</SELECTx/TDx/TR>'); 

send('<TRxTD  ALIGN="CENTERMxlNPUT  TYPE=SUBMIT  VALUE="  Submit 
Information"x/TD>'); 
send('</FORM>'); 

send('<FORM  method=post  action- "+ 
'http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE=,M+FacultyCode+m>,); 

send('<TRxTD  ALIGN="CENTER"xinput  type="submit"  value="Cancel,  Return  to 
Catalog  Menu"x/TD>'); 

send('</form>'); 

send('</TABLE>'); 
end  {end  subareas  =  Yes} 

else  {else  no  subarea} 

begin    {Delete  Account  from  PagePub  and  PubArea  table} 

with  Table2  do     {puts  cursor  on  correct  record  in  PagePUB  table} 
begin 

open; 

SetKey; 

FieldByName(TubTitle').AsString  :=  PubTitle; 

FieldByName(TacultyCode').AsString  :=  FacultyCode; 

GotoKey; 
end; 

with  Table3  do     {puts  cursor  on  correct  record  in  PUBAREA  table} 
begin 
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open; 
SetKey; 

FieldByName(TubTitle'). AsString  :=  PubTitle; 
FieldByNameCResearchAreaTitle^.AsString  :=  ResearchAreaTitle; 
GotoKey; 
end; 


if  (Table2.GoToKey  =  True)  and  (Table3.GoToKey  =  False)  then 

begin    (User  does  not  have  pub  on  research  page} 
with  Query  1  do 
begin 
close; 
SQL.clear; 

sql.add(T>ELETE  FROM  PAGEPUB '); 
sqladdOVHERE  (PubTitle  =  »'  +  PubTitle  + '")  '); 
sql.add('AND  (FacultyCode  =  '"  +  FacultyCode  + '")  '); 
ExecSQL; 
end; 

send('<h3>Publication  deleted  from  selected  research  page.  Publication'); 
send('was  not  found  in  selected  research  area,  therefore,  there  was'); 
send('nothing  to  delete.  Please  verify  selection  and  try  again.  </h3>'); 


sendC<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send(mhttp://13 1 .  120.39.65/cgi-win/faculty/catalog.exe">  *); 

send('<INPUT  TYPE=,,HIDDEN,,  NAME="FacultyCode" 

VALUE=,"+FacultyCode+,M>,); 

send('<input  type=Hsubmit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 
else 
if  (Table2.GoToKey  =  False)  and  (Table3.GoToKey  =  True)  then 

begin    {User  does  not  have  pub  on  research  page) 
with  Query2  do 
begin 
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close; 

SQL.clear; 

sql.add(T)ELETE  FROM  PUBAREA'); 

sql.addOVHERE  (PubTitle  =  '"  +  PubTitle  + '")  '); 

sql.add('AND  (ResearchAreaTitle  =  "'  +  ResearchAreaTitle  + '")  '); 

ExecSQL; 

end; 

send('<h3>Publication  deleted  from  selected  research  area. '); 
send(Publication  was  not  found  on  your  research  page,  therefore,'); 
send('there  was  nothing  to  delete.</h3>'); 

send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE=MHIDDEN,,  NAME="FacultyCode"  VALUE='"+FacultyCode+'">'); 

send('<input  type=" submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 
if  (Table2.GoToKey  =  True)  and  (Table3.GoToKey  =  True)  then 

begin    (User  has  pub  in  both  tables} 

with  Query  1  do 
begin 

close; 

SQL.clear; 

sql.add(*DELETE  FROM  PAGEPUB '); 

sql.addCWHERE  (PubTitle  =  "'  +  PubTitle  + '") '); 

sql.add('AND  (FacultyCode  =  "'  +  FacultyCode  + '")  '); 

ExecSQL; 
end; 

with  Query2  do 
begin 
close; 
SQL.clear; 

sql.add(T>ELETE  FROM  PUBAREA'); 
sqladdCWHERE  (PubTitle  =  '"  +  PubTitle  +  '")  '); 
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sql.add('AND  (ResearchAreaTitle  =  "'  +  ResearchAreaTitle  + '") '); 
ExecSQL; 
end; 

send('<h2>Publication  deleted  from  research  page  and  selected'); 
send('research  area.</h2>'); 

sendHR; 
send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send(mhttp://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode" 

VALUE=m+FacultyCode+M,>'); 

send('<input  type=" submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send^/CENTER^); 
end 
else 
begin 

send('<h2>The  publication  does  not  exist  on  selected  research  area'); 
.  send('and  page,  therefore,  there  is  nothing  to  delete.  Please  verify'); 
send('your  selections  and  try  again.</h2>'); 

sendC<P>'); 

send(*<CENTER>'); 
send('<FORM  method=post  action= '); 
send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE=,M+FacultyCode+,">,); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end 

end;  {end  else  of  no  subareas  exist} 

send(  '</BODYx/HTML>' ); 

closeStdout; 
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closeApp(application); 
end; 
end; 

end. 

{If  Pub  Is  Being  Deleted  From  Both  Research  Page  and  Subarea} 

unit  Dbothrr; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Query  1:  TQuery; 

DataSource2:  TDataSource; 

Query2:  TQuery; 

DataSource3:  TDataSource; 

Tablel:TTable; 

DataSource4:  TDataSource; 

Table2:  TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 

ResearchSubAreaTitle  :  string; 
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PubTitle  :  string; 

FacultyCode  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application. onException  :=  cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

{receive  input  fields  from  HTML  form} 

ResearchSubAreaTitle    :=  getSmallField(  •ResearchSubAreaTitle' ); 

PubTitle  :=  getSmallField(  "PubTitle' ); 

Facultycode  :=  getSmallfield(TacultyCode'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  Delete  Pub  From  Research  SubArea  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

with  Table  1  do     {puts  cursor  on  correct  record  in  PagePUB  table} 
begin 

open; 

SetKey; 

FieldByNameCPubTitle').AsString  :=  PubTitle; 

FieldByName(TacultyCode').AsString  :=  FacultyCode; 

GotoKey; 
end, 

with  Table2  do     {puts  cursor  on  correct  record  in  PUBSAREA  table} 
begin 

open; 

SetKey; 

Field3yName('PubTitle*).AsString  :=  PubTitle; 

FieldByNameCResearchSubAreaTitle').AsString  :=  ResearchSubAreaTitle; 

GotoKey; 
end; 
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if  (Tablel.GoToKey  =  True)  and  (Table2.GoToKey  =  False)  then 

begin    {User  does  not  have  pub  on  research  page} 
with  Query  1  do 
begin 
close; 
SQL.clear; 

sql.add(T>ELETE  FROM  PAGEPUB '); 
sqLaddCWHERE  (PubTitle  =  "'  +  PubTitle  + '")  '); 
sql.add('AND  (FacultyCode  =  "'  +  FacultyCode  + '") '); 
ExecSQL; 
end; 

send('<h3>Publication  deleted  from  selected  research  page.  Publication'); 
send('was  not  found  in  selected  research  subarea,  therefore,  there  was1); 
send('nothing  to  delete.  Please  verify  selection  and  try  again.</h3>'); 


send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send(*"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode" 
VALUE=m+FacultyCode+,">'); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 
if  (Tablel.GoToKey  =  False)  and  (Table2.GoToKey  =  True)  then 

begin    (User  does  not  have  pub  on  research  page} 
with  Query2  do 
begin 

close; 

SQL.clear; 

sql.add(T>ELETE  FROM  PUBSAREA'); 

sqLaddCWHERE  (PubTitle  =  "  +  PubTitle  +  m)  '); 

sql.add('AND  (ResearchSubAreaTitle  =  "'  +  ResearchSubAreaTitle  +  '") '); 

ExecSQL; 
end: 
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send('<h3>Publication  deleted  from  selected  research  subarea. '); 
send(Tublication  was  not  found  on  your  research  page,  therefore,'); 
send(there  was  nothing  to  delete.</h3>'); 

send(*<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1. 120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="FacultyCode"  VALUE='"+FacultyCode+'">'); 

send('<input  type="submit"  value=  "Catalog  Menu"> '); 

send('</form> '); 

send('</CENTER>'); 
end 
else 
if  (Table LGoToKey  =  True)  and  (Table2.GoToKey  =  True)  then 

begin    {User  has  pub  in  both  tables} 

with  Query  1  do 
begin 

close; 

SQL.  clear; 

sql.add(T>ELETE  FROM  PAGEPUB '); 

sql.add('WHERE  (PubTitle  =  m  +  PubTitle  +  m)  *); 

sql.add('AND  (FacultyCode  =  "'  +  FacultyCode  + '")  '); 

ExecSQL; 
end; 

with  Query2  do 
begin 

close; 

SQL.  clear; 

sql.add(*DELETE  FROM  PUBSAREA); 

sql.add('WHERE  (PubTitle  =  "'  +  PubTitle  +  *")  '); 

sql.add('AND  (ResearchSubAreaTitle  =  '"  +  ResearchSubAreaTitle  +  '")  '); 

ExecSQL; 
end; 

send('<h2>Publication  deleted  from  research  page  and  selected'); 
send('research  subarea.  </h2>'); 

sendHR; 
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send('<P>'); 

send('<center> '); 

send('<FORM  method=post  action= '); 

send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe"> '); 

send('<INPUT  TYPE="HIDDEN,,  NAME="FacultyCode" 
VALUE=,M+FacultyCode+",>,); 

send('<input  type="  submit"  value=  "Catalog  Menu"> '); 

sendC</form> '); 

send('</CENTER>'); 
end 
else 

begin 

send('<h2>The  publication  does  not  exist  on  selected  research  subarea'); 
send('and  page,  therefore,  there  is  nothing  to  delete.  Please  verify1); 
send('your  selections  and  try  again  </h2>'); 

send('<P>'); 

send('<CENTER>'); 
send('<FORM  method=post  action= '); 
send('"http://13 1 .  120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<INPUT  TYPE="fflDDEN"  NAME="FacultyCode" 
VALUE=,"+FacultyCode+,">'); 

send('<input  type="  submit"  value=  "Catalog  Menu"> '); 
send('</form> '); 
send('</CENTER>'); 
end; 

send(  '</BODYx/HTML>' ); 

closeStdout; 

closeApp(application); 
end; 
end; 

end. 
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C.  SYSTEM  ADMINISTRATOR  SCRIPTS 
1.  System  Administrator  Menu 

unit  Syscatl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi,  DB,  DBTables; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 

webSiteENIFilename  :=  paramstr(l); 

application.  onException  :=  cgiErrorHandler; 

application.  processMessages; 

{standard  dynamic  HTML  header  information} 

createStdout; 

sendPrologue; 


143 


send(  ^HTMIXHEAD^  ); 

sendTitle(  Main  Menu' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

send  ('<centerxHl>Main  Menu</Hlx/center>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain  Accounts:</H3>'); 

send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDING^^); 

send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1. 120.39.65/cgi-win/sysad/sel_acc.exe">,); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMTT  VALUE="Add">'); 

send(,</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send(mhttp://13 1 .  120  ^.es/cgi-win/sysad/seljst.exe''^); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMTT  VALUE="Modify">,); 

send('</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120  J9.65/cgi-win/sysa(^sel_lst.exe">'); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMTT  VALUE="Browse">'); 

send('</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1. 120.39.65/cgi-win/sysad/dsel_lst.exe">,); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Delete">'); 

send('</TDx/FORM>'); 


send(,</TRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send(,<P>'); 

send('<H3>Maintain  Faculty  Research  Areas/SubAreas:</H3>'); 
send('<CENTER> '); 


144 


send('<TABLEB0RDER=5  CELLPADDES^S^); 

send(,<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/sysad/sarea_yn.exe">'); 

send('<TD  ALIGN=HCENTER,,>,); 

send('<INPUT  TYPE=SUBMIT  VALUE=,,Add,,x/TD>,); 

sendC</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1 .  UO^^/cgi-win/sysad/areaJs.exe'V); 

send('<TD  ALIGN="CENTER">'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Modify"x/TD>'); 

send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION=  '); 

send('"http.7/13 1. 120.39.65/cgi-win/sysad^rs_als.exe">,); 

send('<TD  ALIGN=,,CENTER,,>,); 

send('<INPUT  TYPE=SUBMIT  VALUE="Browse"x/TD>'); 

send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION- '); 

send('"http://13 1 .  ^O^^/cgi-win/sysad/dareaJs.exe"^); 

send('<TD  ALIGN^'CENTER"^); 

send('<INPUT  TYPE=SUBMIT  VALUE="Delete"x/TD>,); 

send('</FORM>'); 

send('<mix/TABLEx/CENTER>'); 

sendC<P>'); 

sendHR; 

sendC<P>'); 

send('<H3>Maintain  Research  Centers/Labs:</H3>*); 

send('<CENTER> '); 

send('<TABLE  BORDER=5  CELLPADDDv^S^); 

send(,<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send("'http://13 1. 120.39.65/cgi-win/sysad/alab_fin.exe">'); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE-" Add">'); 

send('</TDx/FORM>'); 

send(*<FORM  METHOD  =  POST  ACTION= '); 
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send('"http://13 1 .  no^^/cgi-win/sysad/mlabjst.exe''^); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="ModifyH>'); 

send(,</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  nO^^S/cgi-win/sysad/brsJab.exe"^); 

send('<TD  ALIGN="CENTER"x]M>UT  TYPE=SUBMIT  VALUE="Browse">'); 

send('</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .  120.39.65/cgi-win/sysadAllab_lst.exe">'); 

send('<IT>  ALIGN="CENTER"XINPUT  TYPE=SUBMIT  VALUE="Delete">'); 

send('</TDx/FORM>'); 

send(,</TRx/TABLEx/CENTER>'); 

sendC<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain  Research  Page:</EB>'); 

send('<CENTER> '); 

send('<TABLE  BORDER=5  CELLPADDING=5>,); 

send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send("'http://13 1. 120.39.65/cgi-win/sysad/apgform.exe">'); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Add">'); 

send('</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1 .  120.39.65/cgi-win/sysad/mpge_ls.exe">'); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMTT  VALUE="Modify">'); 

send('</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1. 120.39.65/cgi-win/sysad/brs_pge.exe">,); 

send('<TD  ALIGN="CENTER"xiNPUT  TYPE=SUBMTT  VALUE^'Browse"^); 

send('</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1 .120.39.65/cgi-win/sysad/dpge_ls.exe">'); 
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send(*<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE=,,DeleteM>,); 
send(,</TDx/FORM>'); 

send('</rax/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain  Research  Sponsors:</H3>'); 

send('<CENTER> '); 

send('<TABLEB0RDER=5  CELLPADDES^S^); 

send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION=  '); 

send(mhttp://13 1 .  ^O.SP^S/cgi-win/sysad/aspon^.exe"^); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Add,,>,); 

send(,</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send('"http://13 1.  nOJP^S/cgi-win/sysad^rsJst.exe"^); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE=,,BrowseM>'); 

send('</TDx/FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send("'http://13 1 .  120  J9.65/cgi-win/sysad/dspo_lst.exe''>'); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Delete">'); 

send('</TDx/FORM>'); 

send('</TRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send(*<H3>Maintain  Publications:</H3>'); 

send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDING=5>,); 

send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION=  '); 

send("'http://13 1.  120  J^S/cgi-win/sysad/pubjTb.exe"^); 
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send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Add"x/TD>'); 
send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1 .  ^OJ^S/cgi-win/sysad/brsjub.exe'V); 

send('<TD  ALIGN="CENTER"xlNPUT  TYPE=SUBMIT  VALUE="Browse"x/TD>'); 

send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION= '); 

send('"http://13 1 .  120  J9.65/cgi-win/sysad/dpub  jTb.exe">'); 

send('<TD  ALIGN=HCENTER"xlNPUT  TYPE=SUBMTT  VALUE="Delete"x/TD>'); 

send('</FORM>'); 

send(,</TRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain  Faculty  Information:</H3>'); 

send('<CENTER> '); 

send('<TABLEBORDER=5  CELLPADDING=5>,); 

send('<TR>'); 

send('<FORM  METHOD  =  POST  ACTION='); 

send(M,http://13 1 .  120  JP^S/cgi-win/sysad/facJst.exe"^); 

send('<TDxlNPUT  TYPE=SUBMIT  VALUE^'Modnyx/TD^); 

send('</FORM>'); 

send('<FORM  METHOD  =  POST  ACTION='); 
send("'http://13 1 .  ^O.SQ.eS/cgi-win/sysad/brsJac.exe"^); 
send('<TDxlNPUT  TYPE=SUBMIT  VALUE="Browse"x/TD>'); 
send('</FORM>'); 
send('</TRx/TABLEx/CENTER>'); 

send(  '</BODYx/HTML>' ); 
closeStdout; 
closeAPP(application); 
end; 
end; 
end. 
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2.  Add  Accounts 

unit  Sel_accl; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{ Public  declarations } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application.  onException  :=  cgiErrorHandler; 

application.processMessages; 

createStdout; 
sendPrologue; 

send(  '<HTMLXHEAD>' ); 

sendTitle(  'Select  Account  Type1 ); 

send(  '</HEADxBODY  BGCOLOR=,,ADEAEA">' ); 
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send  ('<H2>Choose  the  type  of  account  you  want  to  add.</H2>'); 
send('<P>'); 

send('<Center>'); 

send('<FORM  method=post  action- ); 

send('"http://13 1 .  120.39.65/cgi-win/sysad/ad_accfin.exe">,); 

send('<TABLEBORDER=5  CELLPADDING=5>,); 

send('<TRxtdxinput  type="radio"  checked  name="AccountType" '); 

send('value="FacAcc">Faculty  Account'); 

send('<input  type=Mradio"  name="AccountType"  value="SysAcc">Sys  Admin  Account</td>'); 

send('</TABLE> '); 

send('<input  type="submit"  value="Send  Reply">'); 
send('</form>'); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<FORM  method=post  action- ); 

send('"http://13 1.  ^O.SP^S/cgi-win/sysad/syscat.exe"^); 

send('<input  type=" submit"  value="Cancel,  Return  to  Main  Menu">'); 

send('</form>'); 

send('</CENTER>'); 

send('</BODYx/HTML>' ); 
closeStdout; 
closeApp(  application  ); 
end; 

end; 
end. 

{Add  Accounts  Forms} 

unit  Adaccfm; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  Cgi; 
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type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

($R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 
var 

AccountType     :  String; 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application. onException  :=  cgiErrorHandler; 

application.processMessages; 

{standard  dynamic  HTML  header  information} 

createStdout; 

sendPrologue; 

AccountType  :=  getSmaUField(' AccountType'); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  'Add  Faculty  Account' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

if  AccountType  =  TacAcc'  then 
begin 

send  ('<center><H2>Add  Faculty  Account</H2x/center>'); 
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send('<center> '); 

send('<FORM  method^post  action= '); 

send('"http://13 1.120.39.65/cgi-win/sysad/addf_acc.exe"> '); 

send('<INPUT  TYPE="HTODEN"  NAME="AccountType"  VALUE=",+AccountType+,">,); 

send('<TABLE  BORDER=5  CELLPADDING=5> '); 

send('<TRxTD>Faculty  Code:</TDxTDxinput  type="text" '); 

send('name="FacultyCode"  size=5  maxlength=5x/TD> '); 
send('<TRxTD>Password:</TDxTDxinput  type="password" '); 

send('name="Pwd"  size=10  maxlength=10>  </td> '); 
send('<TRxTD>Verify  Password  :</TDxTDx;input  type="password" '); 

send('name="Pwd2"  size=10  maxlength=10>  </TD>  '); 

send('</TABLE> »); 
send('<P>'); 

send('<input  type="  submit"  value=  "Add  Account"> '); 

send('<input  type="reset"  value="Clear  Form">'); 

send(*</form> '); 
end 
else 
begin 

send  ('<centerXH2>Add  System  Admin  Account</H2x/center>'); 

send('<center> '); 

send('<FORM  method=post  action- ); 

send('"http://13 1 .  120.39.65/cgi-win/sysad/adds_acc.exe"> '); 

send('<INPUT  TYPE="HIDDEN"  NAME="AccountType"  VALUE=",+AccountType+,">'); 

send('<TABLE  BORDER=5  CELLPADDING=5> '); 

send('<TR><TD>LoginID:</TDx:TD><input  type="text" '); 

send('name="LoginID"  size=10  maxlength=10x/TD> '); 
send('<TRxTD>Password:</TDx:TDxinput  type="password" '); 

send(,name="Password"  size=10  maxlength=10>  </td> '); 
send('<TRxTD> Verify  Password :</TDxTDxinput  type="password" '); 

send('name="Password2"  size=10  maxlength=10>  </TD>  '); 

send('</TABLE> '); 
send('<P>'); 

send('<input  type=" submit"  value=  "Add  Account">  '); 
send('<input  type="reset"  value="Clear  Form">'); 
send(*</form> '); 
end: 
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sendHR; 

send('<FORM  method=post  action='); 

send('"http://13 1 .  120.39.65/cgi-win/sysacI/syscat.exe">,); 

send('<input  type=" submit"  value="Cancel,  Return  to  Main  Menu  ">'); 

send('</form>'); 

send('</CENTER>'); 

send(,</BODYx/HTML>'); 

closeStdout; 
closeAPP(application); 
end; 
end; 

end. 

{Add  Faculty  Account  to  Table} 

unit  Addfacc; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

Tablel:TTable; 

DataSourcel:  TDataSource; 

procedure  FonnCreate(Sender:  TObject); 
private 

{ Private  declarations  } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 
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procedure  TForml.FormCreate(Sender:  TObject); 

var 
FacultyCode  :  string; 
Pwd  :  string; 

Pwd2         :  string; 
AccountType  :  string; 

begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application. onException  :=  cgiErrorHandler; 

application.processMessages; 

{HTML  page  header  info} 

createStdout; 

sendPrologue; 

FacultyCode  :=  getSmallField(  TacultyCode' ); 
Pwd  :=  getSmallField(  Pwd' ); 

Pwd2         :=  getSmallField(  "Pwd2'  ); 
AccountType  :=  getSmallfieldC AccountType'); 

send(  '<HTMLXHEAD>' ); 

sendTitle(  'Add  Faculty  Account' ); 

send(  '</HEADxBODYBGCOLOR="ADEAEA">' ); 

with  Table  1  do 
begin 
open; 
SetKey; 

FieldByName(TacultyCode').AsString  :=  FacultyCode; 
GotoKey; 
end; 

if  (Table  l.GoToKey  =  True)  or  (FacultyCode  =  CGINotFound)  then 

begin 
send('<h3>Faculty  code  already  exists  or  you  did  not  enter  one.'); 
send(Tlease  try  again.</h3>'); 
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send('<p>'); 
sendHR; 
send('<p>'); 
send(,<center>,); 

send('<FORM  METHOD=POST  ACTION='); 
send('"http://13 1. 120.39.65/cgi-win/sysad/ad_accfin.exe,,>,); 

send('<INPUT  TYPE="HIDDEN"  NAME="AccountType"  VALUE=m+AccountType+,">,); 
send('<INPUT  TYPE=SUBMIT  VALUE="Return  to  Faculty  Account  Form">'); 
send('</FORM>'); 
sendC</CENTER>'); 
end 

else  (valid  FacultyCode  chosen} 
begin 
if  Pwd  o  Pwd2  then 
begin  (passwords  don't  agree  } 

send('<h2>"Password  Mismatch"  !</h2>'); 

send('<h3>Please  verify  password  choice,  and  try  again. </h3>'); 

send('<p>*); 

sendHR; 

send('<p>'); 

send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 

send('"http://13 1. 120.39.65/cgi-win/sysad/ad_accmi.exe">'); 

send('<INPUT  TYPE="fflDDEN"  NAME="AccountType" 
VALUE=M,+AccountType+,,,>'); 

send('<INPUT  TYPE=SUBMIT  VALUE="Return  To  Faculty  Account  Form">'); 

send('</FORM>'); 

send(*</CENTER>'); 
end 

else  (good  faculty  account} 
begin 

Tablel . AppendRecord([FacultyCode,  Pwd]); 

Table  1.  close; 

send('<h3>The  account  information  was  successfully  entered !</h3>'); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 

send('"http://13 1. 120.39.65/cgi-win/sysad/syscat.exeM>,); 

send('<INPUT  TYPE=SUBMIT  VALUE="Return  To  Main  Menu">'); 

send('</FORM>'); 

send('</CENTER>'); 
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end; 
end; 
send(  '</BODYx/HTML>' ); 
closeStdout; 
closeApp(application); 
end; 

end; 
end. 

{Add  System  Account  to  Table} 

unit  Addsacc; 

interface 

uses 
SysUtils,  WinTypes,  WinProcs,  Messages,  Classes,  Graphics,  Controls, 
Forms,  Dialogs,  DB,  DBTables,  Cgi; 

type 
TForml  =  class(TForm) 

CGIEnvDatal:  TCGIEnvData; 

DataSourcel:  TDataSource; 

Tablel:TTable; 

procedure  FormCreate(Sender:  TObject); 
private 

{  Private  declarations } 
public 

{  Public  declarations  } 
end; 

var 
Forml:  TForml; 

implementation 

{$R  *.DFM} 

procedure  TForml. FormCreate(Sender:  TObject); 

var 
LoginID      :  string; 
Password  :  string; 
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Password2         :  string; 
AccountType  :  string; 
begin 

with  CGIEnvDatal  do 
begin 

{required  when  this  program  runs  under  WebSite} 

webSitelNIFilename  :=  paramstr(l); 

application. onException  :=  cgiErrorHandler; 

application.  processMessages; 

(HTML  page  header  info} 

createStdout; 

sendPrologue; 

LoginID  :=  getSmallField(  •LoguuD' ); 
Password         :=  getSmallField(  Tassword' ); 
Passwords         :=  getSmallField(  Tassword2' ); 
AccountType  :=  getSmallfield(' AccountType'); 

send(  ,<HTMLXHEAD>' ); 

sendTitle(  'Add  System  Account' ); 

send(  '</HEADxBODY  BGCOLOR="ADEAEA">' ); 

with  Table  1  do 
begin 

open; 

SetKey; 

FieldByNameCLoginID').AsString  :=  LoginID; 

GotoKey; 
end; 
if  (Table  l.GoToKey  =  True)  or  (LoginID  =  CGINotFound)  then 
begin 
send('<h3>LoginID  already  exists  or  you  did  not  enter  one.'); 
sendCPlease  try  again.</h3>'); 
send('<P>'); 
sendHR; 
send('<p>'); 
send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 
send('"http://13 1 .  120.39.65/cgi-win/sysad/ad_accmi.exe''>'); 

send(*<INPUT  TYPE="HIDDEN"  NAME=" AccountType"  VALUE="•+AccountType^-",>,); 
send('<INPUT  TYPE=SUBMIT  VALUE="Return  to  Sys  Admin  Account  Form">'); 
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send('</FORM>'); 
send('</CENTER>*); 
end 

else  {valid  LoginID  chosen} 
begin 
if  Password  o  Password2  then 
begin  {passwords  don't  agree  } 

send('<h2>"Password  Mismatch"  !</h2>'); 
send('<h3>Please  verify  password  choice,  and  try  again  </h3>'); 
send('<p>'); 
sendHR; 
send('<p>'); 
send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 
send('"http://13 1 .  120.39.65/cgi-win/sysad/ad_accfrn.exe">,); 
send('<INPUT  TYPE="HIDDEN"  NAME="AccountType" 
VALUE=,"+AccountType+,">,); 

send('<INPUT  TYPE=SUBMIT  VALUE="Retum  To  Sys  Admin  Account  Form">'); 
send('</FORM>'); 
send('</CENTER>'); 
end 

else  {good  sys  Ad  account} 
begin 
Table  1  AppendRecord([LoginID,  Password]); 
Table  1.  close; 

send('<h3>The  account  information  was  successfully  entered !</h3>'); 
send('<P>'); 
sendHR; 
send('<p>'); 
send('<center>'); 

send('<FORM  METHOD=POST  ACTION='); 
send('"http://13 1. 120.39.65/cgi-win/sysaa7syscat.exe">'); 
send('<INPUT  TYPE=SUBMIT  VALUE="Return  To  Main  Menu">'); 
send('</FORM>'); 
send('</CENTER>'); 
end; 
end; 
send(  '</BODYx/HTML>' ); 
closeStdout; 
closeApp(application); 
end; 
end; 
end. 
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